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ABSTRACT 


A  digital  flight  control  system  based  on  microprocessor 
technology  has  been  designed,  developed,  and  flight  tested 
using  the  Avionics  Research  Aircraft  (ARA)  at  Princeton 
University.  The  control  system  utilizes  the  existing  micro¬ 
processor  system  available  in  the  aircraft’s  fly-by-wire 
control  system.  The  command  and  stability  augmentation  con¬ 
trol  law  was  developed  using  modern  control  theory  and  is 
incorporated  into  existing  flight  control  computer  programs. 
Development  of  the  model  and  control  law,  the  gain  scheduling 
procedure,  and  the  flight  test  results  are  presented. 

The  objective  of  the  study  was  to  provide  lateral-direc¬ 
tional  stability  during  high-angle-of-attack  flight  and  into 
the  stall  regime.  Flight  test  results  show  that  it  is  indeed 
possible  to  design  a  control  system  which  will  eliminate 
lateral-directional  instabilities  and  do  so  at  a  level  higher 
than  the  pilot  was  able  to  attain.  addition,  gain  scheduling 

proved  to  be  capable  of  providing  satisfactory  control  through¬ 
out  a  wide  range  of  flight  conditions.  Additional  work,  how¬ 
ever,  is  required  to  correct  a  number  of  control  system  in¬ 
adequacies  before  the  control  system  can  become  operational. 
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Chapter  I 
INTRODUCTION 

1.1  DESCRIPTION  OF  THE  PROBLEM 

The  study  of  aircraft  in  high  angles  of  attack  is  of  critical 
importance  to  the  understanding  of  aircraft  flight  and  to  design 
for  aircraft  safety.  It  is  in  this  regime  that  the  maximum  lift 
is  reached  and  stall  encountered  --  one  of  the  primary  reasons 
for  aircraft  accidents.  Ey  una e r stand ing  the  high  angle-cf- 
attack  regime,  it  might  be  possible  to  design  safety  features 
into  an  aircraft  which  could  delay  the  onset  of  stall,  warn  the 
pilct  of  an  impending  stall,  or  enable  the  pilot  to  recover  mere 
quickly.  This  topic  has  beer,  the  subject  of  ongoing  study  at  the 
Frir.ceton  flight  Research  Laboratory  (FhL). 

While  stall  is  primarily  a  problem  of  the  longitudinal  node  cl 
the  aircraft,  the  lateral-directional  mode  can  be  seriously 
affected  in  the  regime  near  stall.  Kith  lateral-directional 
controls  greatly  reduced,  the  aircraft  can  experience 
instabilities  such  as  wing  rock.  Indeed,  these  instabilities 
have  been  noted  in  the  research  aircraft  at  Princeton  (Rtf.  1). 
In  addition,  it  has  been  found  that  increasing  the  throttle  tends 
to  aggravate  the  unstable  condition.  The  lateral-directional 
instabilities  can  cause  difficulties  in  obtaining  data  in  the 
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high  angle-cf-attack  regime  and  thus  severely  hamper  efforts  in 
dealing  with  aircraft  stall.  Therefore,  a  lateral-directional 
command  augmentation  system  (CAL)  would  be  helpful  to  steady  the 
aircraft  and  to  isolate  the  critical  aspects  of  high  angle-cf- 
attack  flight  from  lateral-directional  disturbances.  Ihe  topic 
of  this  study,  then,  is  the  design  and  testing  cf  a  lateral- 
directional  CAS  capable  of  operating  at  all  flight  conditions 
which  the  aircraft  might  encounter  but  with  special  emph  is  on 
high  ang 1 e-cf-attack  conditions. 

Ihe  PPL  has  at  its  disposal  two  research  aircraft,  ->f 

which  is  the  Avionics  Kesearch  Aircratt  (AKA)  Savior,.  Iht  isav  ion 
has  been  tested  extensively  in  the  wind  tunnel  at  NASA ’ s  research 
facility  at  Hampton,  Virginia  and  the  results  are  summarized  in 
NASA  TN  D-5657  (Pel.  2).  Ihe  availability  of  the  data  simplified 
the  process  of  developing  a  model,  and  the  presence  of  the 
aircraft  enhanced  the  ability  to  validate  the  control  system  cr.ce 
it  was  d e signed  . 

The  AKA  has  been  fitted  with  a  microprocessor  for  digital 
flight  control.  Ihe  CAS,  then,  was  designed  to  be  digital  to 
take  advantage  cf  the  microprocessor.  In  addition,  FPL  has  at 
its  disposal  a  ground-based  microprocessor  system  for  software 
development  and  testing. 

The  CAS  itself  was  designed  as  a  two-input,  two-output,  single 
command  mode  controller.  Lateral  6tick  and  pedals  were  selected 
as  inputs  and  were  scaled  to  be  roll  rate  and  sideslip  commands. 
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respectively.  The  outputs  were  commands  to  the  ailerons  and 
rudder.  Three  longitudinal  variables  --  angle  of  attack, 
throttle  setting,  and  dynamic  pressure  --  were  selected  as  the 
flight  condition.  Since  the  CAS  was  required  to  work  at  all 
flight  conditions,  the  gains  were  scheduled  with  these  three 
variables . 

1.2  ORGANIZATION  OF  THE  THESIS 

The  thesis  is  presertea  to  cover  the  critical  steps  that  were 
taken  to  design  and  test  the  CAS.  In  particular.  Chapter  2  deals 
with  the  development  of  the  model  of  the  AKA..  In  addition,  the 
linearisation  procedure  is  discussed.  Finally,  a  set  of  open- 
loof  results  is  presented  for  comparison  with  known  aircraft 
behavior  . 

Chapter  3  discusses  the  calculation  of  the  control  cams  using 
1  meal— quadratic  ,  sam.pl  ed -data  regulator  theory.  Singular 
command  equilibrium  is  discussed,  as  is  the  calculation  of  the 
cptiral  cams.  lr.  addition,  the  control  law  is  developed  and 
presented.  finally,  results  are  included  showing  the  selection 
of  the  continuous-time  weighting  matrices,  a  detailed  description 
of  the  CAS  performance  fer  a  nominal  flight  condition,  and  a 
summary  of  closed-loop  simulation  results  for  a  variety  of  flight 
cond itions  . 

Chapter  4  discusses  the  gain  scheduling  process.  The  form  cf 
the  gain  equations  is  discussed,  as  is  the  solution  of  the  flight 
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condition  functions  which  make  up  the  gain  equations.  Also 
included  is  the  computation  of  the  gain  coefficient  matrices. 
Finally,  results  of  a  simulation  using  the  gain  schedules 
are  presented. 

Chapter  5^  covers  the  flight  tests.  The  microprocessor 
system  used  and  the  development  of  software  for  CAS  implementa¬ 
tion  are  discussed.  In  addition,  ground  tests  performed  before 
flight  tests  are  covered.  Finally,  the  flight  test  procedures 
and  a  detailed  analysis  of  the  results  are  included. 

Chapter  6^  presents  some  conclusions  and  possible  recom¬ 
mendations  for  further  work  in  the  area  of  gain  scheduling. 

Tha  appendices  cover  the  extraneous  areas  of  study  which 
were  required  for  successful  completion  of  the  project. 

Appendix  A  presents  the  aircraft  data  used  in  the  development 
and  testing  of  the  model.  Appendix  B  summarizes  the  gain 
calculation  software  while  Appendix  C  presents  the  microprocessor 
software.  References  lists  the  sources  of  information  used 
during  the  course  of  this  research. 
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Chapter  II 

DEVELOPMENT  OF  THE  MODEL 


The  requirements  of  the  control  system  specified  that  the  CAS 
should  provide  satisfactory  control  for  not  just  one  flight 
condition,  but  for  the  whole  spectrum,  of  flight  conditions  the 
aircraft  might  encounter.  This  in  turn  required  the  development 
of  a  model  which  could  accurately  predict  aircraft  behavior 
throughout  this  same  range  of  flight  conditions.  In  ether  words, 
the  m.odel  was  developed  not  only  as  a  function  of  the  state  and 
controls,  but  also  of  the  flight  condition. 

The  model  could  have  taken  two  forms.  The  first  stores  the 
aerodynamic  data  in  a  table.  To  use  this  method,  the  model  would 
be  looked  up  for  the  particular  flight  condition  from  a  set  of 
tables  ccntainina  a  number  of  possible  models.  Since  a  m.cdel  for 
every  possible  flight  condition  combination  could  not  be  listed, 
son  t  flight  conditions  would  have  to  be  approximated  by  the 
closest  model  available  or  by  interpolation  between  models.  This 
idea  was  rejected  as  requiring  toe  much  computer  storage  and 
excessive  run  time. 

The  second  choice  was  to  find  a  set  of  polynomials  to 
calculate  the  model  based  cn  the  specified  value  of  the  flight 
condition.  There  is  a  considerable  amount  of  aerodynamic  data 


from  which  the  polynomials  could  be  derived  .  All  that  was 
required  was  to  reduce  the  available  data  to  a  set  of  equations. 
This  was  the  method  selected  in  this  study. 


The  expei imental  data  were  compiled  in  NASA  TN  D-5857  (Ref.  2) 
and  that  which  were  used  are  summarized  in  Appendix  A.  The  NASA 
report  included  data  on  stability  and  control  derivatives. 
Lxperimental  values  of  rotary  derivatives  were  given  in  NASA  TN 
D-6643  (Ref.  2)  but  these  were  considered  insufficient  since  they 
did  not  incluae  variations  of  these  variables  with  the  changing 
flight  condition.  Instead,  the  DSAF  STABILITY  AND  CONTROL  DATCOK 
l Re  £  .  4)  methods  were  used  to  derive  the  set  of  rotary  derivative 
equations,  and  the  values  available  in  TN  D-6643  were  used  for 
compa riser: . 

H;i  selection  cl  the  flight  condition  variables  was  made  on 
the  basis  c£  available  data  and  control  system  reeds.  Since  the 
control  system  was  to  be  angle-cf-attack  sensitive,  angle  oi 
attach,  a,  was  chosen  as  a  variable.  Fortunately,  the  flight 
data  presented  the  variations  oi  the  1  ate ral -a ii e ct iona 1 
parameters  against  variations  in  angle  of  attach.  Lince  the 
application  of  throttle  resulted  in  aggravating  the  unstable 
condition,  throttle  setting,  1  as  chosen  as  a  flight  condition 
variable.  Lata  were  also  available  showing  the  effect  of 
throttle  setting  on  the  lateral-directional  parameters.  Finally, 
given  the  overall  effect  of  dynamic  pressure,  q  (velocity  and 
altitude  effects),  it  was  chosen  as  the  final  flight  condition 
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variable.  The  ranges  of  each  variable  were  based  on  typical 
operating  conditions  and  available  data:  angle  of  attack,  -4  to 
24  degrees;  throttle  setting  (representing  nond imensional  value 
of  thrust,  T/qS),  .C3  to  .23;  and  dynamic  pressure,  which  was 
based  on  typical  velocities  for  the  aircraft  of  IOC  to  2CG  feet 
per  second  and  an  altitude  of  5C00  feet. 

This  chapter  covers  the  model  development  process  from  the 
linearization  of  the  nonlinear  equations  to  the  data  reduction 
and  formulation  of  the  nond imensional  force  and  moment 
coefficients.  Cpen-locp  results  for  27  different  flight 
conditions  are  presented  to  help  verify  the  model. 

2.1  NONLINEAR ,  TIKE-VARYING  EQUATIONS 

The  nonlinear,  lateral -dire-c  tional  equations  can  easilj  be 
found  in  the  literature  (Ref.  3)  and  are  summarized  as  follows: 


y  =  uccs(fc  )  sin  ( V  )  +  v  (  sin(  )  sin(fc  )  sin  ( t ) -cos  ( t>)  cos  ( T  )  ) 
c  o 

w(cos(^)sin(&c)sin('*')-sin(^)cos('h))  (2-1) 

v  =  -ru  +  pv  4  ccos(fec)  sin(^ )  +  (qS/m)Cy  (2-2) 

p  =  (qSb/lx)C1  1 2-3  ) 

r  =  (qSb/lz)un  (2-4) 

t  =  F  4  (q^sinU)  4  rcos  ( t)  )  tan  (&c )  (2-3) 

^  =  qosin(^>)  sec(fec)  4  rcos(^) sec(Gc)  (2-fc) 


The  v  angular  position  and  the  y  position  variables  give 
information  on  the  aircraft  with  respect  to  some  fixed  axis 
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system,  but  they  have  no  effect  on  the  aircraft's  stability. 
Hence,  these  two  variables  were  dropped,  leaving  a  four th-crdtr 
model.  In  addition,  the  lateral  velocity  variable,  v,  dees  not 
have  as  much  physical  meaning  to  the  pilot  as  sideslip  angle,  B. 
To  get  the  sideslip  rate  equation,  the  v  equation  was  divided  by 
the  total  velocity,  V  .  Finally,  the  equations  were  rotated 
through  the  angle-cf-attack  (to  the  stability  axis  system) . 


hence,  the  final  nonlinear  equations  of  motion  were: 

r  =  (qSb/lz)Cn  (2-7) 

E  =  (l/Vo)(-ru  +  gcos(yc)sin(£)  +  (aS/m)Cy  (2-fc) 

p  =  (qb/lx)C1  (2-9) 

p  =  p  +  ( q  sin ( )  +  rcos(£))tan(  )  (2-lC) 

c  o 


These  equations  were  rewritten  as  a  vector  differential  equation: 

x  =  f (x(t)  ,  u(t)  )  12-11  ) 

where  x  is  the  state  vector  (r,  b,  p,  t>)  end  u  is  the  centre  1 
vector  (dR,  dA)  . 

2.2  LINEARIZATION 

The  development  of  a  control  system  based  on  the  nonlinear 
equations  of  motion  would  be  quite  difficult.  Therefore,  it  was 
imperative  that  the  equations  be  linearized.  This  was  done  using 
a  Taylor  series  approxin a tion .  The  approximation  was  taken  about 
a  trim  point  --  the  forces  and  moments  add  up  to  rero,  and  the 
aircraft  is  at  equilibrium..  The  Taylor  series  approximation  of 
the  nonlinear  equations,  f,  is  as  follows: 


b 


a  u  + 


3f(x  ,u  )  dl(x  ,u  )  32f(x  ,u  )  ,  32f.(*  .u  )  •> 

x  «  fix  ,u  )  - - ax  + -  fiu  + - « -  ax  + - 5 - au  +  .  .  •  ( 2 - 1  z  ) 

"  3x  —  3H  "  3x2  "  3u 

where  xQ  and  uc  are  the  trim  values  of  the  states  and  controls, 
respectively.  By  dropping  the  higher  order  terms  and 
rearranging,  the  approximation  becomes: 


*c  “  I(*c'H0> 

of(x  ,u  )  3f(x  ,u  ) 

- O—o  A  ,  --o’-o 

Ax  - -  Ax  + -  Au 


(2-13) 


(2-14  ) 


The  xc  equation  represents  the  nominal  trim  solution  and  the  x 
equation  represents  the  deviations  from  trim.  It  was  this 
perturbation  equation  that  was  of  the  meet  interest.  The 
derivative  terms  form  a  Jacobian  matrices  and  were  redefined  as: 


3f(x  ,u  ) 
- o  — o 


3f(x  ,u  ) 
- o-o 


The  final  linearized  perturbation  equations  of  metier,  (in  m.atrix 
form)  were  as  follows: 


Ax  =  F  ( t )  Ax  +  G  ( t )  a  u  (2- 

whexe  F  is  the  system  dynamics  matrix  and  G  is  the  ccntxol 
dynamics  matrix. 


The  nend  imensional  force  and  moment  coefficients  (C^,  <-n»  b’j  ) 
art  functions  of  the  states  and  controls  and  were  rewritten  in 
linearized  form  as: 


CV  =  CV  4  ^4  (b/(2V  ))C  Art  (b/(2V  ))<_  ,AP+  C  Ad  M  L  Ad  k 


y  yc  yB 


°  y, 


°  y. 


ydA 
(  2  —  1 C  ) 
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Cn  =  Cnc+  Cn/B+  <  '  < 2V0 )  >Cn_Ar  +  (b/ (2V0>  >Cn^P+  CR 


AdF-*  C  A  d  A 


ah 


n 


dA 

(2-17 ) 


c,  =  C,  +  C,  Ab+  (b/(2V  nc,  Ar+  (b/(2V  He,  Ap+  C,  AdRe  c,  Ad  A 
o  aE  lx  °  p  AdR  Ad  A 

(2-lfc) 


where  the  equation  coefficients  are  stability  derivatives  (c  , 

yE 

Cn  '  Cl>'  ^°tary  derivatives  (C  ,  C  ,  4  ,  C  ,  C  ,  C  ).  and 
LL  Jp  p  p  ■*  r  r  r 


control 

derivatives  (C  ,  (_ 

'  1  • 

Cn  *  C1  )• 
a  A  dF 

The 

h  df 

ah  ydA 

lir.earizt'd 

eouations 

ir.  matrix 

torn,  btceitt 

(in  a  in  ensior.al 

1 1  rn  s  )  : 

h 

1.. 

I, 

c 

r 

L 

P 

Vr/vc-i 

yl/vc 

'W'c 

c*ccsU  )/v 

0 

1  = 

L 

L. 

L 

L 

r 

L 

F 

tun  (  \  ) 

■c 

C 

1 

C 

1 

r 

1 

h  - 
u  a 

VdA/Vo 

C  = 

LdP 

LdA  | 

C 

c  i 

- 

j 

wlit  1 1  l 

>L 

’  c<  »tqb/I” 

,  etc  . 

in  ado  it  ion  to  the 

equations 

of  motion,  an 

output  equation  vas 

required 

to 

Keep  tracK 

ci  certain  quantities 

over  vhich  txplicit 

control  v.as  desirable.  This  was  done  using  an  output  equation  of 
the  form  : 


X  ( t )  =  h  (  x  ( t )  ,u  ( t )  ) 


(2-lfc) 


10 


Performing  the  Taylor  series  approximation  and  redefining,  the 
perturbation  output  equation  became: 

&X  =  Hx  4x  +  Hu  Au  (2-20) 


where 


H 

x 


3h(x  ,u  ) 
—  — o  — o 


3x 


3h(x  ,u  ) 

- O  -“O 


3u 


The  selection  of  h  is  discussed  later. 


2.2.1  Calculation  of  the  Trim  Condition 


At  tlit  trim  condition,  all  of  the  forces  and  moments  sun  tc  be 
zerc;  hence,  the  state  is  in  equilibrium  (Ax  =  0).  Therefore,  tc 
solve  for  the  trim  condition,  f  was  set  to  zero  and  the  states 


computed  . 

C  =  (cSb/lz)Cn  (2-21  ) 

0  =  (l/Vc)(-ruo  +  occs(£ c)sin(£)  +  (qb/n )Cy) )  (2-22) 

C  =  (qSb/lx)c1  12-23) 

0  =  p  +  lq  sin(f)  +  rcos ( < ) ) tun (J  )  (2-24) 

C-  w/ 


hultiplying  by  terms  that  were  unchanging,  equations  (2-21)  tc 
(2-24)  simplified  to: 


0  =  -ruo  +  ccos(Xc) sin(£ )  +  (qS/m)Cy 
C  =  cx 

0  -  P  +  ( q  sin  ( £  )  +  rcos  (  £ )  )  tan  ( X"  ) 

L  U 


12-22  ) 
(2-20  ) 
(2-2  2  ) 
(2-20) 


11 


Kith  no  initial  roll  rate  or  yaw  rate  and  zero  and  c ^ ,  the 
nominal  values  of  p  arid  r  were  zero.  Thus,  from.  (2-1E),  (2-17), 

and  (2-lfc),  equations  ( 2  —  2  S )  to  (2-2E)  simplified  to: 


C  =  Cn  +  Cn  AE  4  Cn  AdA  4  C  AdA  (2-2E) 

c  L  dA  1 dA 

0  =  C  4  Cv  At  +  C'  AdA  +  Cv  AdA4((gm)/{qS))cos(X  )sinl^) 
yc  yL  ydA  yd  A 

( 2- 1C ) 

C=C.  4C.A&4C.  Ad  A  4  Ad  A  (2-11  ) 

o  dA  dA 

C  =  C  (2-12) 


fcy  examining  (2-21)  tc  (2-31),  it  was  apparent  that  the  aircraft 
could  could  have  a  trim  sideslip  and  zero  roll  angle,  a  trim  roll 
angle  and  zero  sideslip,  oi  a  combination  of  roll  angle  and 
sideslip.  In  every  case  the  trim  controls  were  non-trival  . 

For  this  study,  roll  angle  was  set  tc  zero,  leaving  a  trim 
sideslip.  Lcir.g  this  and  manipulating  equations  ( 2  —  2  S  )  tc 
(2-11),  the  following  matrix  solution  for  E,  dA,  and  dA  was 
ofcta ined  : 


r  l 

AE 

C 

nB 

%A 

Sa 

-1 

-C 

n 

o 

Ad  F 

— 

C 

y£ 

CydA 

CydA 

~cy 

1  c 

Ad/. 

1% 

CldA 

cv 

-C1 

The  solution  of  (2-31)  provided  the  trim  condition  about  which, 
the  equations  were  linearized  and  the  perturbations  measured. 


2.2.2  Selection  of  the  Command  Vector 


While  the  selection  of  the  command  vector,  h,  has  no  effect  on 
the  eventual  stability  of  the  closed  loop  system,  it  can 
drastically  affect  the  response  of  the  system.  If  the  command 
vector  is  chosen  such  that  the  state  contains  an  integral  of  one 
of  the  command  vector  elements,  then  the  response  will  be 
singular.  Singular  command  equilibrium  does  not  necessarily 
imply  state  and  control  equilibrium.  Furthermore,  computation  of 
the  control  gains  will  result  in  a  set  of  integral  feedforward 
elements,  known  as  proportional-integral  filtering,  in  addition 
to  the  usual  feedforward  and  feedback  gains. 

Comparison  of  singular  versus  nonsingular  command  modes  shows 
that  the  singular  command  mode  has  the  effect  ol  adding  a  third 
state  to  the  two-state  commiand  vector,  namely  the  integral  state 
(Ref.  b)  .  Selection  of  the  singular  command  mode,  then,  appears 
to  be  a  wise  choice  and  the  extra  work  involved  in  computation  cf 
such  a  control  law  is  made  up  for  in  the  improved  control  over 
the  response  cf  the  system. 

In  this  study,  the  command  vector  was  chosen  as  roll  rate  (j.) 
and  sideslip  angle  (t)--both  variables  considered  valuable  in 
aircraft  control.  In  addition,  since  the  state  vector  contains 
roll  angle  (£),  an  integral  of  roll  rate,  control  of  that  same 
variable  was  effectively  added.  The  control  law  configuration, 
then,  is  represented  in  figure  1  . 
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figure  1:  Control  Law  Configuration 

2.3  N0ND1MENSI0NAL  FORCE  AND  MOMENT  COEFFICIENTS 

Perhaps  the  most  important  part  of  modelling  is  the 
determination  cf  the  nond  imer.siona  1  coef  f  icients--sidt  force 
((-y).  yaw  moment  ( Cp )  ,  ana  roll  moment  (C^).  Ihe  coefficients 
are  affected  by  the  states,  the  controls,  and  the  flight 
condition,  and  they  are  nonlinear.  Ihe  task,  then,  was  to  reduce 
the  available  data  to  a  set  ol  polynomials  from  which  the 
coefficients  coula  be  calculated. 

In  the  forn  cf  equations  ( 2  —  1 C )  to  (2-lfc),  the  nond  in.er.sior.a  1 
coefficients  vert  linear  functions  of  the  state  end  controls, 
however,  the  coefficients  of  these  equations  (which  for  saht  cf 
clarity,  shall  be  called  coefficient  components)  were  nonlinear 
functions  of  the  flight  condition.  Equations  for  these 
components  were  derived  which  would  allow  the  coefficients  to  be 
calculated  for  any  specified  flight  condition  arxl  state  and 
control  vectors.  The  coefficient  components,  for  the  purposes  cf 
this  report,  are  broken  down  and  discussed  in  four  catagcries: 
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% 


the  constant  components  (C  ,  ,  t,  ) ; 

yo  no  o 

components  (C  ,  c  .  C,  );  the  rotary 
yB  fe  1 E 


tht  stability  derivative 
derivative  components 


JP  P  P 
components  (C 


C\  );  and  the  control  derivative 
r 


/  yd  A  *  nc 


The  aircraft  for  which  this  control  system  was  designed  was 
tested  extensively  in  the  wind  tunnel  and  the  data  presented  in 
NASA  TN  D-5857 .  The  NASA  report  lists  data  from  which  the 
constant  components,  the  stability  derivative  components,  and  the 
control  derivative  components  could  be  derived  directly.  The 
method  used  to  reduce  the  data  was  generally  the  same  in  each 
case  and  is  discussed  in  detail  in  the  constant  component 
sec  tier. .  Since  there  was  a  considerable  amount  of  data  on  these 


components,  certain  assumptions  were  made  to  to  facilitate  the 
data  reduction .  In  particular,  throttle  effects  were  considered 
lir.ear,  velocity  was  assumed  to  affect  only  the  dimensional 
components  ( through  dynamic  pressure),  and  state  and  control 


variables  were  assumed  to  effect  the  coefficients  linearly.  Ihe 
validity  of  each  cl  these  assumptions  is  discussea  below. 


Hit  data  which  were  available  lor  the  cthei  components  were 
not  available  for  the  rotary  derivatives.  The  report  NASA  TN 
D-6643  did  present  some  experimental  values  of  these  components 
but  foi  only  one  flight  condition.  For  this  study,  it  did  net 
seem  wise  to  assume  that  the  rotary  derivatives  would  stay 
constant  throughout  the  range  of  flight  conditions.  Therefore, 
the  IISAF  DATCOK  nethods  were  used,  making  it  possible  to  reduce 
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even  the  rotary  derivative  components  to  functions  of  the  flight 
cond i tion . 


2.3.1  Constant  Components 

The  static  flight  data  included  in  NASA  TN  D-5657  vert 
presented  as  sets  of  curves  shoving  hov  each  coefficient  changes 
as  the  state,  controls,  and  flight  condition  vary.  In  general, 
there  was  one  plot  per  throttle  setting  with  each  plot  having 
several  curves  plotted  against  angle  of  attack.  The  curves  each 
ccrrespond  to  a  different  value  of  a  state  or  control  variable. 
Lach  curve  was  plotted  with  ten  explicit  data  points 
(corresponding  to  angles  of  attack  of  -4,  C,  4,  t ,  12,  14,  It, 

If,  2C,  and  22  deg).  The  first  step  taken  for  data  reduction  was 
to  make  a  table  cf  eight  data  points  (the  explicit  points  at 
C,  4,  t,  12,  It,  and  2t  ceg  angle  cf  attack  and  one  at  24  deg 
found  by  extrapolating  the  curves)  at  each  thrcttle  position  anc 
angle  cf  attack.  The  data  are  presented  in  Appendix  A. 

The  data  were  reduced  to  a  linear  equation  where  the 
coefficients  cf  that  equation  were  functions  of  angle  of  attack 
only.  The  form  cf  these  equations  was 


c  = 
yo 

cy 

°T 

^c 

4 

CVo 

(2-24  ) 

Cn  - 
o 

Cn 

°T 

’c 

4 

S  ° 

C 

o 

(2-31  ) 

u 

0 

H 

C1 

°T 

*c 

4 

C1 

c 

o 

( 2 -3t  ) 

It 


The  vilue  of  the  slope  and  constant  terms  were  found  by  doing  a 

linear  regression  at  each  angle  of  attack.  The  assumption  of 

throttle  linearity  proved  to  be  valid  in  this  case.  Cure  s  were 

fitted  to  the  slope  and  constant  points,  which  were  functions  of 

angle  of  attack  alone.  (In  the  case  of  ,  however,  it  was 

c 

apparent  that  curve  fitting  would  be  very  difficult  for  the  slope 

tern.,  ,  Therefore,  an  average  C,  was  calculated  for  the 

C1  ° 

three  throttle  settings  used,  essentially  neglecting  throttle 
effects)  . 

The  curve  fitting  method  used  assumed  a  solution  ir.  the  fern 
cf  ar:  n-th  order  polynomial: 

C  =  Vr'  +  ^n-l^"1  *  •  •  •  +  Alal  ■» 

In  this  case,  a  7-th  order  equation  was  used  sue);  that  eight 
values  cf  the  dependent  and  independent  variables  were  required. 
k  matrix  equation  was  then  set  up  in  the  following  manner: 


where  Ua^ )  is  the  value  of  the  coefficient  at  angle  of  attack, 
a  i  .  h.ore  siir.pl  y  : 

C  =  M  k  (2-39) 
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To  solve  for  the  coefficients,  all  that  was  required  was  a  matrix 
inversion  and  multiplication  by  the  coefficient  vector : 


A  =  hi-1  C  ( 2-4C ) 

(Since  the  same  eight  angles  of  attack  —  -4,  C,  4,  t,  12,  It, 

2C ,  24  deg  --  always  were  used  whether  calculating  the  constant 

components,  the  stability  derivative  components,  or  the  control 
derivative  components,  M  and  hence  M  ^  were  always  the  sane. 
Thus,  it  was  necessary  only  to  assemble  C  to  find  the 
coefficients.  A,  for  an>  component  coefficient). 

Ihe  final  reduced  constant  component  equations  are  summarized 
as  follows: 

C  =.  I.CSj^L -b  a'-  7  •  104L-7  e  C+  1.C3GL-3  aJ-  1.49CL-4  a4  + 

1  2.97  9L-<i  a~*  2 . 44BL-3  a1"-  1.715L-2  a  +  C.C 

C  =  -1.99CL-9  a*  +  1.29LL-7  a*3-  2.974L-C  a^+  2./13L-5  a 
*c  - 

°  b.b2bL~b  a“-  4.C14L-4  a*4  1.L12L-3  a  +  C.C 

Cf  =  b.3E>3L-9  a7-  3.259L-7  a6  +  C.C99L-C  eJ-  u  41CL-5  a4* 

1  7.C3 31.-5  a“t  1.C25L-3  a“-  4.5C41-3  a  -  G.C32tl 

Cf  =  3  .  f  1  7L-1 C  a7-  2  .  SCtL-b  a^t  C.1C4L-7  a^-  5.bfclL-L  a4  ■* 

°  1.520L-5  a"+  8.592L-5  a^-  5.593L-4  a  +  C.CClfc22 

=  -7.C99L-10  a7+  4.45bt-b  a6'-  9.C55L-7  a^t  7.B77L-C  a4  - 

o  -  _ 

C.971L-C  a'-  1.C37L-4  a*  +  2.167E-4  a  C.CC/1/ 


-  lb  - 


2.3.2  Stability  Derivative  Components 

The  method  for  finding  the  stability  derivative  component 
equations  was  essentially  the  same  as  for  the  constant  components 
except  that  one  initial  step  --  the  computation  of  the  stability 
derivatives  --  was  included.  The  data  were  presented  as  one  plot 
per  throttle  setting  with  seven  curves  per  plot.  The  curves 
(each  correspond ing  to  a  different  value  of  sideslip  —  -15,  -1C, 
-5,  C,  5,  1C,  and  15  deg)  showed  how  the  coefficients  varied  with 
angle  of  attack.  Cnee  again,  eight  points  per  curve  were 
selected,  and  these  are  presented  in  Appendix  A. 

The  first  task  was  to  compute  the  stability  derivatives  for 
tad  argli  cf  attack  and  throttle  setting.  Since  the 
coefficients  were  assumed  linear  with  respect  to  the  states,  a 
linear  regression  was  used  for  this  task.  The  assumption  cf 
linear  sideslij  effects  was  valid  except  for  Cn  and  at  high 
ancles  of  attack.  The  stability  derivatives  were  reduced  to  the 
form  : 


Sinci  only 
analysis  of 
reg  r  ess  ion 
derivatives 


+  c*b 

1  o 

C  -  c  1  +  c 

r‘fc  nb  c  yE 
T  o 

Cl  “  ci  *c  +  cy 

t-  x  t  *  r 


(2-47  ) 
(2-41. ) 
(2-45  ) 


1  o 

two  throttle  settings  were  given  in  the  data,  no 
throttlt  linearity  was  required.  Once  again,  linear 
was  used  to  determ.ine  the  equations  for  the  stability 
The  curve  fitting  method  previously  discussed  was 


IS 


used  to  determine  the  equations  for  the  slope  and  constant  terms. 
The  final  reduced  stability  derivative  component  equations  are 
summarized  as  follows: 


C 


y 


1 . 2741.-9  a7-  6.630L-S  a6  +  2.CBSL-L  a5-  2.C44L-S  a4  + 

4.7S1L-5  a J+  3.11fcE-4  a2-  1.6G7E-J  a-C.Clbb 


C 

y 


h 


c 


c 

n 


2. 38 CL -4  a 

-2 . CC4L-1 1 


-  C.C124S 

a7+  2 . 5b4L-9 
4 . 37CL-6 


(C. 


was  assumed 


a6-  b . 59CL-L  a5+ 


2.CS1E-5  cS  3 


a  straight 

1 . 1 23L-L  a4 
. 19CL-4  a  + 


1  ine  ) 


C  .  CC1 


C  =  3.C33L-12  a 1  -  4.747E-1G  a€+  l.blSE-b  ab-  2.S99L-7  a4  + 

L 

C  l.GCLE-L  a”+  3.9C7L-G  a2-  b.C49E-L  a  +  C.CC2 

C.  =  -3 . 2L3L-1 C  a'+  2.31CE-b  aC-  B.742E-7.  a5*  S.G3BE-C  a4  - 

1.1C9L-S  a 9.9B7E-S  4.262E-4  a  -  C.tClU 

C  =  C.C97L-11  a7-  4 . 4  C  t  L  -  9  a€  +  1.CG3E-7  aS-  1.C12L-C  a4  + 

L  . 

l.LblL-L  a"t  1  . 4B3L-S  a*1-  1.4G3L-3  a  -  C.lClbL 


2.3.3  Rotary  Derivative  Components 

Since  no  flight  test  or  wind  tunnel  data  were  available 
showing  the  variation  of  the  nend imensional  coefficients  with 
chances  in  roll  rate  and  yaw  rate,  the  USAF  STABILITY  AND  CONTROL 
DATCOR.  methods  were  used  to  find  the  rotary  derivatives.  In 
general,  the  rotary  derivatives  are  functions  of  the  asymmetr ical 
distribution  of  lift  and  drag  over  the  wing  panels  caused  ty 


20 


rolling  and  yawing.  Because  oi  this,  the  nond imensional  lift 
and/cr  drag  coefficients,  and  C^,  were  found  in  every  equation 
for  the  rotary  derivative  components.  Therefore,  these 
coefficients  were  derived  first,  as  functions  of  the  flight 
condition.  Lach  derivative  is  discussed  in  turn. 


Every  rotary  derivative  experiences  compressibility  effects  at 
sufficiently  high  Kach  numbers.  however,  since  the  velocity  of 
the  aircraft  is  decidedly  subsonic  (h  <  .2),  a  constant  Rach 

number  was  used  an  the  equation  formulation.  Since  the  static 
data  in  the  NASA  TN  D-5857  was  taken  at  93  feet/second,  the 
equivalent  Kach  number  of  .C tb  was  used. 


A  number  of  other  terms  were  common  to  all  the  rotary 

derivative  component  equations,  as  well.  Cne  of  these  terms, 

)V(\bi  )  •  i£  “  tail-body  sideslip  derivative  specified  by: 
b 

“Vlvlktll  *  -klCL  (2-50 

L  3 

Lsii.g  aircraft  constants  and  charts  available  in  USAF  DAT C OK , 

laS't,v(v.tM  reduced  to, 


(“-yt>v<bbh)  -  -otltl 


In  additioi,,  a  number  cf  other  constants  relating  to  the  aircraft 
(e.g.  z,  Zp,  1  ,  b^ ,  b^ ,  s^ ,  s^)  were  present  in  the  equations 
and  can  be  found  in  Appendix  A. 
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Longitudinal  Nond imensional  Coefficients 

Sir.ct  neither  nor  Cj.  art  significantly  affected  by  the 
lateral-directional  parameters,  only  variations  with  respect  to 
the  flight  condition  were  considered.  Variations  with  respect  to 
changes  in  the  longitudinal  states  and  controls  were  not 
required.  The  data  values  are  listed  in  Append ix  A. 

first,  the  coefficients  were  reduced  to  linear  functions  of 


the  thrust  coefficient: 


CL  *  %  *c  *  ‘Lc 
CL  *  %  ’c  - 


(2-57  ) 
(  2  -  5 1 ) 


where  the  coefficients  of  these  equations  were  found  at  each 
ancle  cf  attach  using  liriear  reg  l  ess  ion .  The  assumptici.  cl 
lir.ear  throttle  effects  was  valid  in  this  case. 


The  curve  fitting  method  previously  discussed  was  usea  to  find 
the  equations  of  the  slope  and  constant  terns  for  the 


loncitudir.al  cot 


fellows : 


The  ecuations  are  summarized  as 


C  =  2 . 7bCL-fc  a  l.ClCL-C  a°+  4.2?9t-i.  a5-  4.4L3E-4  a4* 

S 

1  .  5  3  G  L  -  3  a “ +  0 . 7  fc  1 E  -  3  a*-  1  .  3  2 1 E  -  3  a  +  C . 2 3 7 
C.  =  -5.571L-1G  a7+  &.952E-fc  a6-  3.fcb4E-t  a‘  +  5.42CE-L  a4  - 

i-* 

°  ’  2 

2.531E-4  a"-  9.214E-4  a^+  O.Cb337  a  +  C.121 

C.  =  -1.4G1E-L  a7+  1.C45E-C  aC-  2.736E-5  a5+  2.966L-4  a4  - 
LT 
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9.C3GE-4  a3-  0.GC3391  a2+  0.C21L7  a  -  1.GL3 

CL  =  -G . 539E-10  a /  +  2.GGbL-fc  a6-  1.17GE-7  a5-  5. 244E-6  a4  + 
c 

7.751L-E.  a-5-  2.278E-5  a2+  4.266E-5  a  +  C.Cbbl 


Sid e-Force-Due-to-Rol ling  Component 


The  sid t- force-due- to-rol 1 ing  component,  C  was  computed 

V 

using  the  following  equation: 

(S  =  (Cy  ^  Vb  4  21  ^  p^/bv.)  (AtyR)  v(V.BL)  (2~C 

P  P  o 

vUr(  (Cy  >V,fi  is  the  component  for  the  entire  wing-body-tail 

combination  and  (C  is  the  component  for  the  wing-boc> 

yp 

comb inat ion  . 


( Cy  was  calculated  using  the  following  equation 


where 


(Cy  }V.L  =  K((C>p/LL)CL)  4  <*S-  V 


12-84  ) 


°-(C,  tan  (a))  -  §5;(CD-CD  5 


_  o  u  L 
h  =  r 


d  "•  tan (a))  -  |-(C£/^  aR) 


3^cl 


u-cl  ; 


and 


AR+A  cos (A  ,,) 
c/  c 


C 

CL  C  =0  AR  B+4  cos  (A  „  ) 
ML 


(2-Ct  ) 


(uC„  )r“  (3  sin  (7)  (1-2  (Cl£ 


P  C  -0 


C  2  — C  7  ) 
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Sinct  and  are  functions  of  the  flight  condition,  h  was 
reduced  to  a  polynomial  function  of  angle  of  attack  and  is 
summarised  below: 

K  =  4.722L -fc  a7-  1.E3E-6  a6+  4.235E-C  a5+  5 . 20&E-4  a4  - 

0.C0E90  a3+  O.CC723G  a*+  C.CB70  a  +  l.CX 

By  assum.ing  constant  Fach  number  and  using  aircraft  constants  and 
charts  available  in  LiSAF  DATCOK. ,  (C  / )  and  (  C  )  reduced  to: 

Uy  /<-  )  =  -.Ct 
F 

(  C  )  =  .1C1 

*F 


Yaw-Moment-Due- to-Rol 1  Component 


The  y uu-n cment-c ue -tc-rc 1 1  component,  was  computed  usinc 

F' 

tlit  following  equation: 

<<-„  >v,tl  ‘  «•„>«,  -  *  zps1n(s))l(z-!;p,/t1,)* 

(Acy  >v<M,h)  <J-“> 

b 

where  (Cr  is  the  component  fox  the  wing-tody -ta  1 1 

‘f 

ccmt i nation  and  (C  ),  is  the  conpcnent  for  the  wing-boa^ 

>p  V.fc 

corrt  inat  ion  . 


( C  )  was  calculated  using  the  following  equation: 
r*  nb 
F 

(C,  )lt  =  -C,  t  a  n  ( e  }  -  M-Cj  tan  ( a )  -  (^n^/C,  )C,  )  +  (  Cnr,/fo)fc 


'r.  V.L 
F 


■p'  L  L 


f  2  —  7  C  ) 


24 


where 


c 

n 


1 

6 


AR  +  6  (AR  *  cos  (A 

c/4 


-  t.n(Ac/4)  tan(A£/4) 

AR  12 


AR  +  4  cos  (A  ) 
c/4 


(2-71  ) 


K  was  previously  discussed,  and  is  the  roll  damping  component 

P 

to  be  discussed  later.  £y  assuming  constant  hath  number  and 
using  aircraft  constants  and  charts  available  in  USAF  DATCOM , 
(Cn  /CT  )  and  (Cn  /fe)  reduced  to: 

pi-  P 

(Cnp/CL)  =  -.1003 

(Cn  /fe)  =  G.C 
F 


Roll  Damping  Component 


The  roll  damping  component,  0^  ,  was  computed  using  the 

P 

following  equation: 


lLl  V.L1  ~  (C1  U.L  4 


HCj  )h(£h/sv)  (bh/Lv)2  4  2lJ7tJ  * 

(  1  P  ^  bv  ^  ^  v  (  V.Lh  U' 


v.i.tie  Uj 

I 

e  c  r  l  n,i  tie! 
cor t mat  ion 


VL'i 


1 1 . 


is  tie  component  ior  the  ving-Locy -ta  1 1 

1  o ,  )  is  the  component  tor  the  ving-bccy 

1 


(0.  )  was  calculated  by  the  following  equation: 

P 


-  'pc*p/k>c1=clk/P><ch>VlcL.>c,.u(%’I/(ti  >r-c 

P  L  ci  L  P 


(C-, 


+  (ac,  ), 

1  'drag 
P 


-  25  - 


(2-7  3  ) 


wh  t  I  C 


(Ci  ) 


r/(Cl  }r=C  =  1  ‘  2 ( Z/ ( b/2 ) ) sin (P)  +  3 (z/ (b/2 ) )4sin^ (D 

(2-74) 


W"lF>drag  *  *% ,CLL/cL*tf-«1/6>tt0 

(3  =  ^1  -  M2 

*  =  (tla)K/  (2TT/p  ) 

(L1  »K  -  U.U>/())ltV<c1  >th  HCj  ’theory 

C  Q  b 


(2-75) 
(2-7C) 
(2-77  ) 
( 2-7fc  ) 


Assuning  constc.nt  Each  nunibtr  and  using  aircraft  constants  and 
cVarts  available  in  USAF  DATCOfc,  ^ Cl_ ^T/ ( C,  )„  , ,  B.  k,  and 

p  ip  1  ~ L 

(  P  S  /  k  )  r  cd  uc  ed  to  : 

<Clp)r/,dp>i=c  *  •'-t- 

p  =  .  SSt 
k  =  .552 

(P  L1  /k)  =  -.42 

P 

Since  both  (Ac.  ),  and  (L1  /C,  )  are  functions  of  the  lilt 

lQloC  a  i 

t  “ 

ana  crag  coefficients,  it  vos  possible  to  reduce  the  equations  to 
a  set  of  polynorial  equations  in  angle  of  attack,  sunr.ar i  zed 
be  lev  : 


<CL.>c}>c  “ 


-4  . B44L-1 C  e?4  1.797L-7  a6  -  G.524L-G  a5  +  G.L45L-5  a4  - 


2.235L-5  aJ-  1.52GE-3  a^-  1 . 72CE-a  a  ♦  C.55 

ACX  =  B .  453L-1C  a7-  5.GbGE-6  a°+  l.GCGE-C  a5-  9.G4GL-G  a4  + 

bl  2 

1.9B5L-5  a~+  2.1GSL-4  a'N  9.2G9E-5  a  +  G.1525 


-  2G  - 


5 . 224E-10 


Ac 


1 


2 . 325L-11  a7 
3 


006E-6  cJ4 


a6-  1.665E-8  a5+  4 . 944L-7 
5.380E-5  a2+  2.388E-4  a  - 


.  4 

c-  — 

0 . CCt 7 5 


Side-Force- Due- to- Yaw  Component 


The  USAF  DATCCM  lists  no  method  for  the  side-force-due-tc-yaw 
component.  In  adaition,  it  states  that  the  tern;  is  usually 
negligible  for  angles  of  attack  up  to  stall.  Therefore,  this 
tern  was  neglected  for  this  study. 

Yaw  Damping  Component 


The  yaw  damping  component,  (  was  computed  usinc  the 

r 

following  equation: 

(Cnr)h8T  =  <Cnr)V,L  4  (  /  fcw  ^ 1  :pccs  ( )  +  zpsm(e))  (ACy^  >  v  ( VtLL ) 

12-79  ) 

where  ( is  the  component  for  the  wing-body-tail 

com  Lina  tier,  and  (C  )  is  the  component  for  the  wing-bod> 

r  V’L 

combination . 

( )  was  calculated  using  the  following  equation: 
r 

(Cn  Kb  =  (Cnr7CL)CL  4  <CVCD  )CD  (2*tC) 

r  o  o 

where 

r2 

Cr  =  Cr  -  *"L/  (TTAK )  (2-81) 
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Assuming  constant  hach  number  and  using  aircraft  constants  and 

charts  available  in  USAF  DATCOto,  (Cn_/C*)  and  (Cn../C^  )  reduced 

~  r  l  r  l 


(  r/CL)  =  “*C2 
(Cnr/CD  )  =  -.32 


Roll-Homent-Due-to-Yaw  Component 


*lht  rcl  1-nomer.t-due-to-yaw  component,  ,  vas  calculated 

r 

isjr.c  the  following  equation: 


U1  )V.E1  =  <ci  '  (V^XlpCOElc)  +  zpSin  U  )  1  * 


(  ZpCOt  ( a  )  -  l^sin(a)  )  (ALy  )v(V,U)  (2-t2) 


where  (Cp  is  the  component  lor  the  wing-Lcdy-tail 

combination  and  (c^  )^.  is  the  component  for  the  wir.g-toay 

1  r 

corr  t  ir.at  ion  . 


(Cp  was  computed  by  the  following  equation: 

r 


<ci  Ki 
r 


1  ii/CL^CT  =CCL  "f  '  C1  I  Vr>-  ^-bj 

l  r  i. 


where 


AR  (1  -  i‘) 


AR  +  ;  cost'  tan  (.'  ,  ) 

c  /  u  ‘~ 


2  (AR  6  +  2  cos(,’c^)  AR  o  +  4  cosl.^^)  6 


L  C  -0 
M 


AR  +  2  cos (A  )  tan  (A  .  ) 
j  ^ _ c /4_  _ c  /  4 


AK  ♦  4  cos  (A  ..  )  8 

c/4 


tcir  i  1,*W(  9in(Ac/i.) 

-r1 '  n 


ct  SC  (2-b< 


(2-tb  ) 


AR  *  4«coi(A  . .  ) 
c/4 


2fc 


Assuming  constant  Kach  number  and  usirjg  aircraft  constants  ana 
charts  available  in  USAF  DATCOM,  these  terms  reduced  to: 


(Clr/CL)  =  .241 
(AClr/r)  =  . GC1G79 


2.3.4  Control  Derivative  Components 

As  in  the  cases  of  the  constant  and  stability  derivative 
components,  static  data  we're  available  for  the  control 
derivatives.  Eecause  the  data  were  not  preser.te?d  in  the  same 
way,  rudder  and  aileron  are  discussed  separately. 

Rudder  Derivative  Components 


The  method  for  finding  the  rudaer  derivative  component 
equations  was  the  same  as  the  stability  derivative  components, 
ttatic  Gita  were  presented  in  one  plot  per  throttle  setting  with 
five  curves  per  plot.  Lach  curve  (corresponding  to  a  different 
value  of  ruader  deflection  --  -17. L,  -9.C,  t.t,  7.L,  and  13.2 
deg)  showed  how  the  coefficients  varied  with  angle  of  attack. 
Cnee  again,  eight  points  p>er  curve  were  selected,  and  they  are 
presented  in  Append ix  A. 


The  first  task  was  to  compute  the  rudder  derivatives  at  each 
angle  of  attack  and  throttle  setting  using  a  linear  regression. 
The  linear  assumption  was  valid  for  both  C  and  C  but  not  so 

y  n 


2S 


good  for  C.'j  .  since  it  was  desirable  to  use  as  simple  a  model  as 
possible,  linearity  for  was  assumed,  although  the  assumption 
could  be  reconsidered  if  the  results  were  not  satisfactory.  The 
rudder  derivatives  then  were  reduced  to  the  form: 


cy  =  S  +  Cy  (2_fct) 

ydK  ydR  c  ydR 

C  =  cr,  +  Cr  °  ( 2-G7  ) 

d  R  nd  R  C  d  R 

c.  =  C,  1  1_  +  C,  °  ( 2-tt ) 

dR  dR,  dF 

T  o 

Since  only  two  thrcttle  points  were  used,  no  investigation  of  the 
linearity  of  throttle  was  necessary.  A  linear  regression  was 
also  used  for  this  task.  The  slope  end  constant  terms  were  then 
curve  fitted  using  the  method  previously  discussed.  The  final 
reduced  equations  are  summarized  below: 

G  »  C.22LL-1C  a7-  4.C79L -8  a6+  9.4C9L-7  eL-  fc.tblL-t  a4  ■+ 

ydIl 

1.C17L-L  a 1.SL2L-4  a*"-  2.147L-4  a  t  G.CGtt 

C.  =  4  .  CS7L-1 1  a7-  3.C79L-9  aC-  7.235L -b  a5-  C.S12L-7  a4  + 

2 

1.C95L-G  a'  +  6 . 53SL-G  a  -  1.2CBL-S  a  +  G . GG29C 

C  =  -i  .  ^ tt-1 1  a 7  +  4.47UL -9  aL-  7.G3GL-t  e5+  £>.C«.tL-7  c**  - 

n  - , 
u  F 

1 . 1G4L-C  a”-  4.S31L-1  a'-  S.litL-b  a  -  C.tC4u 


■7  .  2Ctt-l  1  a 7  +  4 .  £ 3 2L-9  aC-  1.141E-7  a5  +  1.C77L-C  a4  - 

2.10CL-C  a 1.L9CL-S  a2+  2.94 CL -5  a  -  G.CC1BC 

: .  2  7  fa  L  - 1 G  a7-  2.42fcL-b  a6*  C.S33L-7  ab-  7.24GL-G  a4  * 

2.C69L-5  a"+  1 . Z94E-4  a2-  G.396E-4  a  +  C.CGltt 

•1 . 3B1L-1G  a7*  9 . bbbL-9  a6-  2.394L-7  a5+  2.4fe7E-C  a4  - 


3G 


6 . 68GE-G  aJ-  4.C66E-5  a2  +  1.717E-4  a  +  G.CGG247 


Aileron  Derivative  Components 


The  only  difference  between  the  aileron  derivatives  and  the 
rudder  derivatives  was  that  the  aileron  derivatives  were 
presented  in  NASA  TN  D-5657  with  only  one  throttle  suiting; 
hence,  one  step  in  the  process  vas  deleted.  7he  data  were 
presented  as  five  curves  per  plot  (corresponding  to  aileron 
values  of  -42,  -21,  C  ,  21,  ana  42  deg)  shoving  the  effect  cl 

angle  cf  attack  arid  are  sumn a r l zed  in  Append ix  A.  The  curve 
fitting  rrcthoc  previously  discussed  vas  used  to  reauce  the  data 
to  e  final  set  cf  equations  summer i zed  as  follovs: 


C 

r.  . 
at. 


2.423L-11  a / -  l.tC3t-‘  aC+  3.b5$E-b  a^-  3.L17L-7  a4  + 

fc . CG7L-7  a "+  5.L1GL-G  a2-  2.Gb3L-b  a  -  G.CGC2C7 

-1.G37E-11  a  /  +  1  •  CbbE-9  aC-2.59tL-b  a5-+  2.497E-7  ^  - 

G.123E-7  aJ-  4.G23E-G  a“+  3.243E-3  a  -  G.GGCGCL 

-1.3blL-ll  a / +  S.bGCL-lC  aC-  2.4GSE-b  a5+  2.227E-7  a4  - 

2  •  2  b  5  E  -  7  a 3.377E-C  a  2 1  3.G1SE-C  a  -  G . G C 1 2  / 
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2.4 


OPEN-LOOP  RESULTS 


The  final  step  in  the  modtl  dtvtlopmtnt  was  verification  of 
the  model.  lo  do  this,  a  number  of  test  flight  conditions  were 
used  to  determine  the  linearized  system  dynamic  equations,  1  and 
C.  from  these,  system  eigenvalues  and  dimensional  derivatives 
were  determined.  habit  1  lists  the  results. 

hwe  nty-seve  n  flight  condition  combinations  were  used 
representing  three  different  values  for  each  of  the  three  flight 
condition  variables.  The  three  values  were  chosen  as  the 
maximum,  mir.irum. ,  and  midpoint  values  for  each,  of  the  variable's 
typical  ranges.  In  particular,  the  values  for  angle  of  attach 
were  -4,  1C,  and  24  deg;  for  throttle  setting,  they  were  .Cl,, 

.11,  and  .21;  and  for  dynamic  pressure,  they  were  9.721,  21.L94, 

and  lb.  922  pounds  per  square  foot  (corresponding  to  velocities  ol 
ICC,  11C,  and  2CC  feet  per  second) . 

11, e  eigenvalues  give  a  good  representation  of  the  basic 
aircraft.  /. t  low  angles  of  attach  (-4C),  no  instabilities  are 
noted  .  i.t  moderate  angles  of  attach  ( 1 C  ° )  r  an.  unstable  spiral 
moot  with  a  long  time  constant  is  encountered.  finally,  at  high 
angles  of  attach  (24C),  an  unstable  rcll-spiial  develops.  hhis 
corresponds  to  the  wing  roch  instability  which  has  been  noted  m 
this  flight  condition  regime. 

In  addition,  the  rotary  derivatives  were  checked  against 
experimental  data  in  NASA  TN  D-6643 .  hht  comparison  was  done 


1 


using  lor  the  model  at  a  nominal  condition  (angle  cl  attack  = 

1 C c ;  throttle  =.13;  velocity  =  lbC  ft/sec).  The  yaw  damping 

(<-n  )  end  the  roll  damping  (C^  )  terms  correspond  veil  with 
r  p 

accepted  values.  Ihe  yaw  damping  lor  the  model  was  -C.  12b 

compared  vith  -C .  12b  lor  the  data,  while  the  roll  damping  was 

-C.27G  compared  with  -C.41.  Ihe  cross-coupling  derivatives, 

however,  both  were  elf  by  a  factor  of  two.  Yaw-aut-to-roll  ( Crj  ) 

P 

was  -(..lit  lor  the  model  compared  to  -C.Cbb  in  the  data,  while 

rcl  1 -d ue- tc-yaw  (C^  )  was  C.236  compared  to  C.1C7.  Since  no 

r 

trier  could  be  lound  in  the  calculations  and  since  the  complete 
nice  e  1  appeared  to  give  good  results  despite  this  discrepancy,  the 
cross-coupling  derivatives  were  lelt  as  derived.  This  assumption 
coulu  be  reconsidered  il  liter  results  were  net  satisfactory. 

2 . 5  MODEL  REEVALUATION 

After  this  project  was  finished,  an  inspection  of  the  model 
was  done  and  two  major  errors  were  found  along  with  other  problems 
noted  in  later  Chapters,  these  errors  may  prove  to  be  the  reason 
the  control  system  was  not  a  complete  success.  This  section 
has  been  added  after  the  fact  to  point  out  these  problems  and 
is  included  in  this  chapter  to  be  consistent  with  the  thesis 
organi zation . 

Both  model  errors  pertain  to  assumptions  that  were  made 
which  are  not  valid  at  high  angles  of  attack.  The  first  involved 
the  inertia  matrix;  the  second  involved  the  vertical  component 
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of  the  velocity  vector.  The  model  errors  in  turn  affect  the 
control  law  and  the  eventual  outcome  of  the  project. 


2.5.1  Inertia  Matrix 

Due  to  the  emphasis  on  angle  of  attack  that  this  project 
used,  the  stability  axes  provided  a  better  basis  for  an  axis 
system  than  did  the  body  axes.  Indeed,  much  of  the  aerodynamic 
data  that  was  used  to  formulate  the  model  was  based  on  the 
stability-axis  system.  The  body-axis  equations  of  motion  were 
rotated  through  the  angle  of  attack  for  development  of  the 
control  law.  In  doing  so,  however,  the  rotation  effects  on  the 
inertia  matrix  were  not  considered.  Hence,  the  model  essentially 
used  stability-axis  aerodynamics  and  body-axis  inertias.  At 
low  angles  of  attack  (less  than  5  degrees),  this  effect  can  be 
considered  negligible.  However,  this  control  system  was  required 
to  perform  at  high  angles  of  attack  and  the  inertia  changes 
are  significant. 

To  repair  this  oversight,  the  inertia  matrix  needs  to  be 
rotated  to  the  stability  axis  system  and  can  be  done  by  the 
following  equation: 


I  is  defined  as  the  body-,  or  principle-axis  inertia  matrix 

is 

as  follows: 


I 


B 


I 

x 

0 

0 


0 

I 

y 

o 


o 

o 

i 
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S  B 

H  and  Hc  are  defined  as  follows: 

C  O 


By  working  through  the  equation,  the  following  relationships 
result : 


2  2 
I  cos  a  +  I  sin  a 
x  o  z  o 


.  2  2 
I  Sin  a  +  I  Cos  a 
X  o  z  o 


)  sin2a 

o 


and  the  stability-axis  inertia  matrix  is  as  follows: 
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Perhaps  the  most  significant  effect  of  this  rotation  is 


the  appearance  of  the  product-of-inertia  term,  I 


This 


term  affects  the  rotational  dynamics  of  the  aircraft. 
The  rotational  dynamics  are  defined  as  follows: 


-s  =  xs  [^s  “  ^sIs— s 1 


where  the  terms  are  as  follows: 


C,qSb' 


-S  =  Cm^Sc 


C  qSb 
n^1 


'0  -r  q 
is  =  r  0  -p 

-~q  p  o 


Hs  =  q 


Working  through  the  equations  and  assuming  pitch  rate  (q)  is 
negligible,  the  following  equations  result: 


’  V  V  7  7  V  7  • 


xxs  Z2s  xzs 


MSbIzzs  +  Cn'qSbIxzs] 
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■  (,  , 1  lc<5: 
'  XX  zz  xz,/ 

s  s  s 


Cbl  +  C  qSbl  ] 
xz  n  xx 

S  S 


Comparing  these  equations  to  (2-7)  and  (2-9),  the  inertia 
effects  are  readily  apparent:  the  higher  the  angle  of  attack, 
the  larger  the  inertia  effects. 


2.5.2  Vertical  Component  of  Velocity 

• 

The  rate  of  change  of  the  lateral  velocity  component,  v, 

and  hence  the  rate  of  change  of  sideslip,  8,  are  functions  of 

the  vertical  component  of  velocity,  w.  At  low  angles  of  attack, 

w  is  very  small  compared  to  u,  the  forward  velocity  component, 

but  at  high  angles  of  attack,  w  takes  on  significance.  This 

term,  however,  was  inadvertently  neglected  (assumed  zero)  and 

hence  does  not  appear  in  equation  (2-8)  for  6. 

The  result  of  this  oversight  is  the  miscalculation  of  the 

F  matrix.  The  ip  coefficient  of  the  ££  equation  changes  from 

V  /V  to  Y  /V  +  w/V  .  At  high  angles  of  attack  (e.g.  24  degrees), 
popo  o 

the  coefficient  becomes 


Y  /V  +  w/V  =  0.4 
p  o  o 

instead  of 


Y  /V  =  0.008 
P  ° 

The  significance  of  this  error,  then,  is  readily  apparent. 
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CONTROL  DERIVATIVES 


font i nued 
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Chapter  III 

DEVELOPMENT  OF  THE  CONTROL  LAW 


The  design  ol  the  command / stabii  ity  augmentation  system  v.as 
accomplished  using  linear-quadratic  control  theory  for  a  sampled 
data  regulator.  This  method  calculates  an  optimal  feedback 
matrix,  C ,  by  minimising  a  samipled-data  cost  function,  u, 
sp«  c  i f  ied  by  : 

d  =  i/2^  (a>^C  au)  at  (j-1) 

k7t.  “ 

(v).ere  Cc  t-nd  R  are  the  ccntinuous-time  state  and  control 
weighting  natrices,  respectively)  subject  to  a  linear  constraint 
sjtcified  ty  the  sampled-data  system  dynamic  equations: 

h+l=^^  — k"^^^-“k  l  i  -2  ) 

uhere  C  and  .  ire  tht  sampled-aata  equivalents  of  the  syster. 
dyr.aUCE  equations,  1  and  C. 

A  not.-zerc  set  point  regulator  vas  formulated  as  follous: 

*  * 

iu  =  At  -  C  (AX  -  AX  )  (a-i) 

*  * 

vhere  Ax  arid  au  art  the  equilibrium  set  points  for  the  states 

* 

and  controls  determined  by  the  command,  A^  ,  and  fchere  Ax  and  At 
art  the  current  values  ol  the  states  and  controls.  The  objective 
cl  this  regulator,  then,  is  to  drive  the  states  and  contrcls  to 
thtii  tauilibriun  values. 


The  controller  design  task  was  two- fold.  First,  the 
equilibrium  values  of  the  states  and  controls  were  determined 
given  a  specified  command  input.  Since  the  state  includes  ar. 
integral  of  a  command  vector  element,  the  singular  command 
equilibrium  method  was  used.  The  second  task  was  determination 
of  the  optimal  feedback  gain  matrix  for  a  sampled-aata  regulator, 
C.  Cnee  these  tasks  were  completed,  the  control  law  specified  by 
13-2)  was  developed. 

Since  the  CAS  was  dtsigned  as  a  sampled-data  controller,  a 
samp-ling  time  had  to  be  selected.  Thu  criterion  for  the 
selection  was  that  the  sampling  time  had  to  be  long  enough  to 
enable  all  calculations  for  the  control  law  to  be  completed  and 
sliGit  enough  that  aircraft  handling  was  net  degraded.  A  sampling 
tim  cf  C.l  seconae  affected  to  make  a  good  compromise  between 
the  twe  conflicting  objectives. 

Ibis  chapter  covers  the  determination  of  the  singular  command 
equilibrium,  the  calculation  cl  the  optimal  gains,  and  the 
development  of  tie  control  law.  In  addition,  results  are 
included  showing:  the  selection  process  cf  the  continuous-time 
matrices,  Cc  and  F  ;  a  detailed  description  of  the  controller 
operation  fer  a  nominal  flight  condition,  with  simulation 
results;  and  a  summary  of  closed-loop  simulation  results  for  2 7 
flight  conditions. 
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l  SINGULAR  COMMAND  EQUILIBRIUM 

Ihe  first  step  toward  the  design  of  the  controller  is  the 
determination  of  the  equilibrium  point.  *lhe  equilibrium  point  is 
defined  as  the  desired  value  of  the  aircraft’s  states  plus  the 

assorted  control  settings.  It  is  determined  by  the  input  command 

★  *  * 

vector.  Ay;  ,  and  it  is  represented  by  Ax  and  Au  ,  the  equilib¬ 
rium  values  of  the  states  and  controls. 


The  system  equations  are  denoted  by: 

A  *  =  1  A  X  +  G  A  u 
A*  =  hx  AX  +  Hu  a  u 


( 3-4  ) 
( 3-5  ) 


7  c  exanir.e  the  equilibrium,  it  would  seem  coirect  to  set  ax  =  C 
er.d  manipulate  (3-4)  and  (3-5)  as  follows: 


r  -  r 


t  i  1 

C  1  A  X 

_Ai  .I’  - 

i  i 

hU  _  l  -J 

*  '  r 

r  l  -i 

A_X  A  * 

l  c  ' 

L 

*  '  ! 

* 

AU  j  =  :  A u  = 

h  h 

x  u 

Ay 

l  3  -t  ) 


(3-7  ) 


* 

(wlit  i  e  Ay  =  Ay). 


howe  v  e  r  ,  i  r. 
exist,  a  rid  a 


the 

dif 


case  of  a  singular  command, 
ferent  approach  (Ref .6)  must  be 


F  C 


taken . 


-i 

dots 


nc  t 
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Singular  equilibrium,  occurs  when  the  state  vector,  ax, 
contains  an  integral  of  a  command  vector  (a^;)  element.  While 
such  a  case  has  desirable  aspects,  it  does  mean  that  nc  true 
equilibrium  can  exist  in  the  states  and  controls.  A  singular 
command  variable  (in  this  case,  roll  rate)  is  the  derivative  of  a 
state  variable  (roll  angle),  so  a  non-zerc  value  of  the  former 

prevents  the  latter  from  reaching  any  steady-state  value  (hence 

* 

*2  f  C).  however,  the  disequilibrium  in  the  singular  variable 
may  affect  the  nonsingular  variables  such  that  they,  too,  do  net 
read,  steady-state.  V.hile  the  disequilibrium!  in  the  ncnsingular 
variables  is  smell,  it  is  still  significant  enough  to  affect  the 
results  and  shoula  not  be  neglected.  Indeed,  singular 
equilibrium  implies  nc  equilibrium  at  all  (fcef.  5). 

lo  develop  the  singular  equilibrium,  the  singular  and 
ncr.sincular  variables  are  partitioned,  resulting  in  the  following 
equations : 


Thus,  the  following  equations  are  applicable  for  finding  the 
equilibrium  values; 
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•  *  *  *  * 

^  *1  =  Fi  **i  +  f12a~2  4  °1 

( 3-10 ) 

•  *  *  *  * 

^  21^—1  4  ^  2  4  G2  ^ y 

(3-11 ) 

AJC*  *  hx4*I  +  *x  AX*  +  Hu  A  U* 

(3-12) 

and  the  following  values  are  assumed : 


6*2(c)  =  C 

★ 

=  constant 

•  *  *  .  * 

ax„  =  (thus  a>2  =  constant) 


Solving  loi  x^  and  u  in  (3-lt)  and  (3-12),  the  Icllouinc 
r.atiix  tcuaticn  results: 


f~  _i  r  #  * 

I  *  I  *  * 

!  hx.  hu  \*x  -  hx/A*2  ; 

>-  -  L  i  J  L  /.  I 


U-13) 


b  cat.  be  a  t  i  ir.td  as  , 


*1  C1 


M‘x1  hUj  =  &  =  1^11  b^2J 


S11  S12 


vhtrt  the  partitions  ol  i .  car,  alternately  bt  lound  b} 


hi  '  ‘(‘'-Shi  4  >> 

S12  -  -hlclh2 

521  '  -£22t‘xJh1 

522  =  ^x^i*0!  4  hu> 

Thus,  multiplied  out,  equation  (3-13)  becomes: 


(3-14  ; 
(3-1 L  ) 
(  3  - 1 1  ) 
(3-17  ) 


dx ,  = 


=  i>12&X  -  (s  1 1 1  1 2  *  S12hx  >A^2  +  S11A-1 


(3-11  ) 
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au*  =  S22A¥*  -  (S 


21F12  4  S22Hx2^2  4  b21A-l 


(3 -IS) 


Substituting  (3-l£)  and  ( 3  —  1 S )  into  (3-11)  and  gathering  terms, 
the  following  equation  results: 


AX„ 


U*,s 


1°12  4  G2b22^A-*  4  (*21S11 


4  C2b21  ^A-l 


(t2  "  *21(bllF12  4  £12hx2)  '  G2(b21*12  4  b22hx2))A-2 


(3-2C  ) 


Lquatior:  ( 3  —  2  C  )  can  be  simplified  by  making  the  folio*.!; 
d  t  f  ir.it ions  : 


h  =  F .  s  -f  C  S„ 

y  <.  i  ±  <.  /  n 


Kx  “  F  2 1 bl 1  4  G2b2 1 


(3-21  ) 
(3-22  ) 


K  =  hr.  -  F  ^  l  S ,  ,  l  1  ,  S  ,  ~  h  ) 
x  ii  lilz  12 


«  siihx.» 


sue),  thct  : 


»  *  *  •  *  * 

A  >2  =  KyA^  +  K>A^i  +  K>A^2 


(  3  - 1 4  ) 


♦  *  ★ 

Fecal  line  the  assumption  that  ix^  =  KA^  : 

.  *  * 

Ax2  =  K  A* 

r 

|A  X  ! 

;  — ^  J 

=  K[H>1  Hx2lU^2j+  KKu*/ 

=  KF  AX,  +  Kh  a>0  +  KH  au  (3-23) 

The  fcllcving  r  e  1  a  t  ionships  aie  noted  by  comparing  equation 
(3-25)  tc  (3-11): 


F 


21 


(  3 -2 1  ) 
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P2  =  Khx. 


C2  =  Khu 


45-27) 
(3-2 1 ) 


These  relationships  coupled  with  equations  (3-14)  to  (3-1/) 
alloved  (3-24)  to  be  simplified.  First,  is  eliminated  ty 
manipulating  (3-22): 


K* 

x 


h  '  S  1  ^  4 

d.  1  1/  d.  <L 


u  21 


=  Khx  fl1(_GlS21  4  1  )  4  Kh, 

*  “x^I1  -  “x/lS^l  -  KHu*=21 

■  Kthx1fi1  -  l‘hx1fjlGl  +  Hu>£21> 
-  K<Hx1f-:1 * 

*  KtHx/:1  -  «x1»i1> 

=  c 


By  the  Sam  reasoning,  K  is  eliminated  by  mianipul  at  ing  (3-23): 


h  = 


1.  -  1 (B, ,F,„  t  S,,h„  )  -  C0(S.,F,.  +  S„„hv  ) 

t.  *1  11  1/;  1*  X„  2  li  ^2  X, 


■  Khx.  -  K,1»1snrii  -  -  *V2iri2  -  Kb«t.-.'-*2 

-  K1‘x*  -  KKx,i:i(-Gii-s'22hx,fi1)  +  J,Ei2  - 

-1  1  -1 
Kh  ( -E  ,  C  B  )hv  -  Kh  ( -B^-h  F,  )  F  ,  ..  -  Kh„fc.-hv 

X,  1  1  *2  X„  U  22  X,  1  1^  U  X_ 

1  -i  -  -i  1  2 

‘  Khx2  -  “.J1,  >1!  -  >‘x2>  -  “x/l  'ii 

KHuii2lhx1‘I2l12  -  >‘x2» 

‘  K>-,j  *  <«•„  -  Kh«1lIlcl  >b22  lhxJrI1,'l2  -  hx2>  -  “xjh1*/:  * 

*  w*,2  -  *“>‘u  -  «,j‘I1c,h-u,if;1c1  .  ».„)*»• 

liix1FIll12  -  «x2>  *  KliXjf  Jll)2 

‘  *%  -  KU‘x1tl‘t12  -  l‘x2>  -  “‘,1*ilrl2 
=  c 


Thus,  ax^  reduced  to: 
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o 


o 


**2  =  KyA/  +  V*2  +KiAil 

•  v**  (3‘2'] 

froir  (3-2S).  the  equi  1  ibr i urn  equation  for  Ax*  is  found,  noting 
that  : 


Thus 


A  X2 


*  C  •  * 

ax2(0)  +  JAJ^*)  dr 

Ja^  )  dr 


=  Ky|A^*  dr 


(3-30) 


(3-31  ) 


h  relationship  for  ax^  is  found  by  differentiating  equation 
(3-11),  sue!  that : 


A-1  S12^i  ~  ( S 1 1  ^  jl  2  4  t'12hx2)^2  4  fcllA-i 

_(fcllf12  4  fc12hx„)A-2  4  S11A-1 
a 


(3-32  ) 


Liileitr.  listing  again : 


A-1  "  "ailf12  4  S12hx2)A^2  4  F11A*1 
=  C 


(3-32 


Thus,  frorr  (2-a2),  equation  13-22)  becomes: 


A  Xj 


-(tllF12 

4 

S12Hx9 

)ax2 

2 

•  * 

“(S11*12 

4 

*12% 

)a>2 

“ ("11F12 

4 

*12% 

)KyA* 

..  * 


(3-20 
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By 

substituting 

(3-34) 

into  equation  (3-lt), 

the 

nonsingul ar 

* 

variables,  A  x^  »  in  terms  of  i 

* 

* 

(S11F12 

*  .  * 

AX  1 

=  £>12a*  - 

4  b12hx2*A-2  ~  bllAi5l 

=  b12A^‘  - 

(£11F12 

4  S12hx2)A^2  ‘ 

bll(bllF12  4  S 

(S12  “  £ll(bllF12  +  b12hx„  )Ky*A*  " 


2  " 

(&llt12  +  S12hx2)A-2  (j~3b) 

finally,  a  relationship  for  the  equilibrium  controls  is  found  by 
substituting  (3-34)  into  (3-19)  as  follovs: 


*  * 

A  —  S 


(b21l12  4  £22Hx2)a-2  4  b21A-l 

(b21l12  4  S22hx2^i2  ~  b21(SllF12  4  S 1 2hx2  )KyA* 
(b22  ~  b21(bllF12  4  S12hx2)Ky)A^  -  (b21F12  4  b22Hx2 )a^2 


!2  2a* 

=  b22^ 


(3-3C) 

Since  this  CAS  is  designed  as  a  sam.pl  ed-d  ate  controller,  the 
ccrrespondinc  samp  led -a  etc  equilibrium.  equations  ere: 


*  *  * 

Ax,  =  4  K  ctiy, 

■>  ~2k-i  y  Xk 


(3-j*/  ) 


-1,  (b12  ~  bll(bll*12  4  S12hx„  )Ky  )A*X  “  lbllFli  4  b12l'x„  )a^2 


2  _‘k 

( 3- afc  ) 


A-h  (b22  ~  S^‘  (b>  ’F 


21  "'ll*  12  4  b12hx_  5Ky  ,A*k  “  <bllF12  4  £12hx,,)A-2 


2  _‘k 

(3-39) 
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k 


finally,  equations  (3-37)  through  ( 3 — 3  S )  is  simplified  further 
by  defining  the  folloving  quantities: 


spy  =■  s12  -  fa12  <£>11b12  + 

S12Hx2 

)Ky 

(3-4C  ) 

SXl  =  -(S11F12  4  S12h5<2) 

(3-41  ) 

SLY  =  S22  -  S21(S11f12  * 

£12hx2 

)Ky 

(3-42  ) 

SLi  =  -<S21P12  4  S22fcX2) 

(3-42  ) 

Thus  : 

★  *  * 

A  X~  =  A  •+  K  At  iy, 

“‘k-lA  y 

(2-44  ) 

A>,  =  SXi  Ay.  +  SXl  Ax, 

~~xv  K 

* K  *  * K 

(  3  -4  L  ) 

ii-(  =  SL\  Ay^  +  SLjAx2 

k 

13— st ; 

3.2  CALCULATION  OF  0PT1KAL  CAINS 

Lsmg  sarr.p  ltd -data  ,  1 int ax -auaa rat ic 

control  theory. 

the 

optimal  gains,  C,  ait. 

C  =  (P  4  rTPs£  )-I(r1FEfc4  +  A1)  (3-47 ) 

vl.trt  <f  ana  T  trt  the  sampled-data  system  equations,  P  ana  f  are 
sany  1  e'd-data  weighting  matrices  and  l ££  is  the  solution  to  the 
discrett  Ficcati  equation.  7o  solve  for  the  optimal  gains,  then. 


the  sampled-data  system  equations  and  veighting  matrices  and  the 
solution  to  the  discrete  Piccati  equation  had  to  be  found. 


3.2.1  Sampled-Data  System  Equations 

The  continuous-time ,  system  equations  are  of  the  following 
form : 

Ax  =  f  Ax  +  G  Au  (3-4E) 

£y  neglecting  the  control  effects  such  that  Eu  =  0  (this  can  be 
done  by  superposition),  the  equation  becomes: 

A  x  =  F  ax  ( 3-4  5  ) 

Solving  for  Ax  (using  the  Laplace  transform  method),  the  equation 
reduced  to: 


(sl-f  )  ax  =  A  x  (C  ) 

A  *  =  (  si  “E  )■•*  AX(C')  (  3-5C  ) 

cr  ,  ir.  the  tint  domain: 

AX  =  t  ^ t  a  x  ( C  )  (3-Si  ) 

Hit  equivalent  recursive  equation  foi  prepogeting  the  state  from 
cr.t  instant  to  the  next  is, 

AX(tj)  =  c1 (tl'tC)  A x(tc  )  (3 -52) 

Hit  state  transition  matrix,  <£,  can  be  defined  as: 

$  =  ef(tl"tC)  (3-53) 

or  it  can  be  defined  over  an  interval.  At,  such  that: 

iX(t+At)  =  $(At)  Ax(t)  (3-54) 
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The  calculation  of  the  state  transition  matrix  involves  the 
use  of  the  series  representation  for  e: 


aAt 


=  1  4  aAt  4  ( aAt ) 2  /  2  4  (oAt)'}/3  + 


In  natrix  notation  for  F: 


4  (At)  =  1  4  FAt  4  1/2  (FAt)2  4  1/3  ( F  At ) J  4 


Ir.  the  case  where  ae  f  C ; 


r  =  f  $  (At  ,t  )c  (T  )  dr 

=  j  tHAt-T)  dt  c 

=  §  (At  )  j  t~l  T  dT  C 


ng  j 


-F 


helving  |  e  at 

d*  =  j  (1  -  fAt  4  i/2  (FAt)2  -  1/3  ( 1 At ) J  4  . 

=  1 At  -  FAt*  4  1/2  F*At  ~  -  1/3  FJAt4  4  .  . 
=  At(i  -  I  At  4  1/2  (I  At) 2  -  1/3  (FAt)3  4 


(3-55) 


(3-5C  ) 


A  x  ( t )  =  $(At)Ax(tc)  4  J$(  At.T  )G(i]tu(r  )  dt  (3-5?) 

The  cor.trcl  effects  matrix,  T  ,  is  defined  as: 


( 3-5L  ) 


)  dr 


.)  (5-59  ) 


Therefoie,  the  control  effects  matrix  is  found  as  follows: 

r-  |(At)At(l  -  FAt  4  1/2  ( F  At ) ^  -  1/3  (FAt)3  4  .  .  . )  0 

13-tC 
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3.2.2  Sampled-Data  State-  and  Control-Weighting  Matrices 


The  sampled-data  cost  function,  J,  defined  in  (3-1)  as: 


=  1/2^  (AxTC  ax  +  AuTF  au) 
.  fjt.  c  ~  —  c  — 


may  also  te  defined  as: 


=  1/2^  (Ax^CAx^  +  +  ^uJhAuk) 


(3-tl  ) 


vhtrt  C,  t,,  and  K  are  samp  1  ed -data  ,  state-  and  contr  cl-weighting 
rati  ices  and  are  defined  in  terns  of  the  cont inuous- tin e 
veichtinc  matrices  as  follovs: 


i  =  j.  41  (“I  )Cc^(t  )  dt 

h  =  (t)Ccr(  t)  dT 

h  -  (Rc  +  rT  (1  )CcT(t  )  )  dT 


(3-C2  ) 


(3-t. 


U-C4) 


Hie  integrals  are  sclve-o  using  Simpson  ’  s  rult,  Vvhich  is: 
f(t)  dt  =  ((t"c)/(3r.)  )  (f(tr  )  +  4f(t,)  +  2f(t.)  +  .  .  . 

L  1 

2f  ( tn-2  )  +  4f  ( tii-1  )  +  f  ( tn )  )  (  j-t  L  ) 


Ir.  this  case,  ( t-a )  is  defined  as  the  sampling  time.  At,  and  r.  is 
the  nunter  cf  subir.tervels  in  the  sample  (1C). 


The  calculations  are  simplified  noting  that 


$(At)  $(At)  =  $(2At) 


( 3-Ot  ) 
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Thus,  only  one  state  transition  matrix  (for  t  =  At/10)  needed  to 
be  calculated  instead  of  calculating  one  at  every  nt  (Ref.  6). 


3.2.3  Solution  to  the  Discrete  Riccati  Equation 

The  discrete  Riccati  equation  (Ref.  7)  is  as  follovs: 

pk_!  *  i'1Pkt  +  d  -  (r^pjj  +  k1  (r  r^rr1  irTPk$  +  l}) 

(  3  — C  7  ) 

The  equation  is  iterated  until  a  steady-state  solution  is 
r e  ached ,  i  . e  .  : 


k-1 


S£ 


3.2.4  Compu t ation  of  the  Closed-Loop  System 

Cr.ce  the  optimal  cair.s  are  calculated,  the  equivalent  closed- 
loci  system  dynamics  equation,  1^,  it  found  and  its  stability 
characteristics  investigated.  lirst,  the  closed-loop  state 
transition  matrix  is  found  by: 

c  §  "  rc 

1  A  is  then  found  using  the  series  representation  for  the  natural 
log  : 

a  =  (l/fitjlrlc^1) 

=  (lMt)((eiil-  1)  -  (l/2)(eaAt-  1)2+  (l/3)(ea  At-  l)5-  .  .  . 

(3-C9 ) 
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Therefore , 


fcl  =  (l/At)Jn(fcl) 

=  (1/At)(({  -  1)  -  (l/2)($  -  1)2+  (l/3)($  -  l)3-  .  .  .) 

(3-7C  ) 


3.3 


CALCULATION  OF  CONTROL  GAINS 


1c  summarize  the  results  up  to  this  point,  the  sttod>-stutt 
^—2  “  * 


★  * 

estimates  (Ax,  ,  )  tre  developed,  and  those  equations  are: 


★  *  * 

AX9  e  AX.  +  K  At  Ay  v 

*k  k-l.  y 

ax^  =  SXY  A^k  +  SX1  a  x 2 

*k  *  *  k 


AUj,  =  SUY  SLi  i*2 


k 


13-44  ) 
( 3-45  ) 
(3-46  ) 


vhert  all  tirn.s  art  previously  defined.  In  addition,  the  optimal 
earns,  C,  art  calculated.  Therefore,  by  substituting  into  the 
control  lav,: 


A  U  k  ^  U  ^  —  C  ( A  X  ^ 


*  > 

A*k} 


( o-3  ) 


the  control  lav  becomes: 


AX 

* 

^k  =  Aik  ‘ 

CAX, 

— k 

-  c* 

* 

=  A  ty  * 

C  AX  i 
—  K 

"  C1A-1,  ~ 
k 

* 

C.AX. 

“  "2k 

* 

* 

* 

* 

=  6LY  A^k  +  fabl  AX2  -  C  AXk  -  C2  (SXY  A^K  +  SX1  4^  )  - 


* 

C  ,  AX  _ 

*  ~  A 
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=  (SLY  -  C1SXY)Ai'k  +  (SLI  - 


By  defining : 


C^&Xl  -  C2)Ax2  -  C  axk 


(3-71  ) 


<-t  =  SLY  -  C2  SXY 

C  =  SL1  -  C,  SX1  -  C, 
s  1  i 

Cb  =  ~C 


(3-72) 
(3-73  ) 
(3-74  ) 


the  control  lav  simplified  to: 


=  Cf  Alk  4  Cs  **2  4  Ct**k 

k 


(3-75  ) 


Since 


A*2R  =  KyJ**k 

The  control  lev  is  revritttr,  as: 


( 3-44  ) 


^k  =  Cf^k  4  CsKyfAi'k  dt  4  Cb**L 


(  3  -  7 1  ) 


Ly  dt  1  ir.ing  : 


ci  =  csKy 


(3-7  7  ) 


the  final  control  lav  is  then  written  as 


AU  =  CfA*k  +  CA  Alk  at  +  CbAXk 


(3-7L  ) 


where  is  the  command ,  AX^is  the  current  value  of  the  state 


and  : 


Cf  =  s22 


i'21(i>llt12  4  S12hx2)Ky  " 
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Ci  «  ^(S21F12 
Cb  =  "C 


C,  (s 


12 


-  ^11(^21^12  + 


12  x. 


+  £22Kx, )+Cl(SllF12  4  S12hx ,))Ky 
^  2  J 


(3-79) 
(3 -80) 
(3-fcl  ) 


3.4  CLOSED-LOOP  RESULTS 

Cncfc  the  control  lev  design  method  was  set,  the  selection  ci 

the  continuous- time  weighting  matrices,  0C  and  Rc ,  was  necessary. 

Since  these  matrices  affected  response,  desired  response 

characteristics  had  to  be  determined  before  C  and  F  could  be 

c  c 

chosen . 

After  the  controller  was  subsequently  formulated,  verification 
ci  its  operation  through  simulation  also  needed  to  be  carried 
cut.  Pesults  oi  the  verification  were  presented  in  two  wa^s. 
first,  a  detailed  description  ci  a  nominal  flight  condition  was 
presented.  Second,  a  summ.ary  oi  27  different  flight  condition 
simulations  vas  presented  including  closed-loop  eigenvalues  and 
response  characteristics  to  tvo  different  commands. 

3.4.1  Selection  of  Q  and  R 
-  —  — c  - -  — c 

Before  the  sampled-data  weighting  n.atrices  could  be 
calculated,  the  continuous-time  weighting  matrices,  Ct  and  F  , 
had  to  be  selected.  Since  there  was  no  method  for  determining 
the  weights  which  give  the  desired  step  response,  the  selection 
vas  based  on  a  trial-and-error  iteration.  Tradeoffs  in  response 
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characteristics  vere  examined  and  the  weights  which  gave  the 
"best"  result  were  used. 

Three  step  response  characteristics  were  considered  in  the 
selection--rise  time,  defined  as  the  amount  of  time  to  go  fron,  1C 
to  9C  percent  of  final  value;  overshoot,  the  percentage  over 
final  value  that  the  response  reached  at  first  peak;  and  settling 
time,  the  amount  of  time  to  settle  to  within  one  percent  of  final 
value.  The  test  was  run  using  a  nominal  flight  concition  Uncle 
of  attack  =  lc  dtg,  throttlt  =  .la,  velocity  =  15C  feet  per 
second)  and  two  commands  {1C  deg/ sec  roll  rate  with  zero  sideslip 
and  zero  roll  rate  with  2  dec  cf  sideslip). 

The  desired  response  was  selected  foi  two  types  of  commands. 
Ihe  first  was  a  roll  rate  command  (with  zero  sideslip)  for  which 
minimum  rise  tine,  overshoot,  and  settlir.g  time  were  wanted.  Ihe 
second  command  was  a  sideslip  com, m and  (with  zero  roll  rate)  for 
which  minimum  overshoot  and  settling  time  and  a  rise  time  around 
1  see  were  desirable.  The  selection  of  Cc  and  Fc  were  based  or. 
the  results  closest  to  these  criteria. 

before  starting  the  selection  process,  an  initial  Cc  and 
were  chosen.  In  particular,  only  variations  in  the  Cc  elements 
correspond ing  to  sideslip  (Cg)  end  roll  angle  (C^)  were  found  to 
be  lrportar.t  in  arriving  at  suitable  responses.  The  other 
elements  in  the  weighting  matrices  were  set  to  the  inverses  of 
the  maximun  mean-square  values  of  the  states  and  controls  (Ref. 

5)  .  llicse  mean  values  used  are: 
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r  =10  deg/stc 
p  =  10  deg/stc 
dF  =  10  deg 
d A  -  40  deg 


Using  these  values  and  rounding  to  one  sigi  Lficant  figure,  the 
weighting  matrices  art  : 


C,  = 


1  .C 
C 

c 

c 


‘b 

c 


c 

c 

1 .0 

c 


0 
c  , 
0 

‘p 


R  = 


1  .c 

0 


c 

.10 


The  and  0^  terms  then  were  varied  to  find  the  best  choice 

of  those  weights  .  At  first,  each  was  set  at  fivt  different 

values  li,  2b,  be ,  7b,  ICC),  such  that  2b  different  combinations 

vert  tested.  The  results  were  listed  ir.  Table  2.  Hie  roll  rate 

command  seemed  to  be  best  when  0^  was  2b  but  the  sideslip  command 

was  toe  slew  for  0C  =  1  ana  too  fast  for  0r  =  2b.  Another  set  of 

b  b 

weights  were  tested  using  =  2b  and  CE  =  (1,  b,  10,  lb,  20, 
2b).  These  results  were  listed  in  Table  3.  from  these  tests, 
CE  -  10  appeared  to  be  the  be  st  choice  . 


Therefore,  the  final  continuous-time  weighting  matrices  art 


r 

!  1  .  C 


0.  = 


c 

0 

0 


0 

1C  .  0 

c 

0 


0 

c 

1  .0 
c 


0 

c 

0 

25.0 


F  = 


1  .C 
0 


0  ■ 
.  10 
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OVERSHOOT 


Table  2 


OVERSHOOT 


.5996  •  3.2561  j  ~  . 

.2210  +  3.21 60  j  .148  1  7.25  .95  .48  3.50 


Table  3 

Response  Characteristics  Varying  Sideslip  Weighting 


3.4.2  Closed-Loop  Simulation ;  Nominal  Flight  Condition 

Verification  of  the  controller  was  done  by  simulations  of 
command  responses-  The  nominal  flight  condition  was  used  for  the 
simulations;  thus,  at  the  nominal  flight  condition,  the 
linearized  s' stem  dynamic  and  output  equations  were  determined  as 
follows: 


A  r  -  .  5fcfc 

4 . 2tb  -  .  5GC 

C.C  ir 

1  i  - 

[-5 . 651 

0.545- 

Ab  -.595 

-.224  C.OCt 

C  .  214  1  :  Ab 

1 

|  C.C7C 

—  . C  C  C  '  A  a  t 

Ap  =  2 . 7 6 3 

-5.lt/  -4.374 

O.C  ;  Ap 

1  1  \ 
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1.113 

-b.C17  a  at. 
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u 

<1 

1 

C.C  l.CCC 

C.C 

C.C 

C.C 

r 

! 

i 

At 

1 

j 

i  -  r 

Arc  =  c.t 

c.t  l.CCC 

C.C  1  aF 

I 

i 

■f 

C.C 

C.C~  _AdT 

A lc  c.t 

l.CCC  C.C 

C.C;  ^  Af 

O.C 

C.C  Ad/ 

wh e r e  A f  and 

At  were  roll 

c 

rate  and  sidt 

slip  commands. 

respectively  . 

The  characteristic  equation  was  found 

as  fellows: 

C  =■  (s+ .412«-2 .42CL  j)  (  s+ .4l24-»2 .42CC  j)  (s+4 . 4127  H  s- •  C513  ) 

Thus,  fron  the  characteristic  equation,  a  spiral  instability  with 
a  long  tire  constant  (15.5  seconds)  was  noted. 

The  continuous-time  system  dynamic  equations  were  converted  to 
the  following  sampled-data  system  equations: 
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|”A  rk+l 

j”c .  916 

0.425 

-.039 

'A£W 

: - . css 

0.956 

0 . 004 

AFk+i; 

=  0.252 

-.111 

0 . 640 

j^C .  Cl  3 

-.030 

0.  Cbl 

0.CG5 

> 

r  j 

mm 

- .  535  0 . CCS 

0.C21 

ABk 

C.C34  -.004 

- .  000 

1  ^Pk 

0.015  -.640 

1  .  coc 

|_A^k_ 

C.CC2  -. C35  j 

AaBk 

AdAk 


The  sampled-data  weighting  matrices  were  found  using  the. 
sempled-date  system  equations  and  the  continuous-time  weighting 
matrices.  The  sarr.pled-data  weighting  matrices  that  were 
calculated  were  summarized  belcw: 


|  C  .  140 

-.142 

C  .  033 

C.157 

-.142 

0 .549 

-.07  3 

- .  293 

* 

0  =  1 

C.C33 

-.073 

C  .  074 

0.255 

C  .  157 

-.29  3 

0.255 

2.4bl 

;  -.12b 

-.004  . 

1 

0.C50 

1 

0.167  ; 

r 0.312  0.037 

A 

1 

*  ' 

K  -.000 

-.Obi 

h  =  i  0 . 03  7  0 . 220 

-.070 

-.304 

u 


The  optimal  gains  and,  subsequently,  the  control  gains  were 
calculated.  The  control  gains  were  as  follows: 
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0. 0fe4  i 
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0. 2bt 
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0.001 
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1.027" 
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The  equivalent  closed-loop  system  characteristic  equation  was 
found  from  the  optimal  gains  and  the  sampled-data  system, 
equations;  it  is: 

C  =  U+2 .627-1 .686 j) ( s+2. 627+1 .fcfc6j) ( s+L . 269-1 .625 j) 

( s+5 . 269  +  1 . C2S  3 ) 

As  can  be  seen,  the  closed-loop  system  had  no  instabilities  and 
fairly  quick  time  constants.  Also,  the  roll  and  spiral  modes 
were  no  longer  separate.  Figure  2  shows  a  plot  of  the  open-  ana 
closed-loop  eigenvalues  for  comparison. 

j 


o 

cl  «  closed-loop 
ol  =  open-loop 

Figure  2:  Ligenvalue  Plot:  Open-Loop  vs.  Closed-Loop 

finally,  simulations  were  run  to  insure  the  proper  operation 
cf  the  control  system.  Linear  simulations  using  6tate  transition 
matrices  were-  used  for  ease  of  comparison  with  later  simul  at  ions. . 


Figure  3  shows  the  response  cl  the  aircraft  for  a  roll  rate 
command  of  10  degrees  per  second.  Ihe  rise  time  for  the  roll 
rate  response  is  C.152  seconds  while  the  settling  time  was  l.iL 
seccnds.  Overshoot  was  14. 73  percent  over  final  value.  The 
sideslip  experienced  some  steady-state  error  even  though 
commanded  to  be  zero  but  that  error  was  negligible  (C.CLC 
aegxees).  The  yaw  rate  response  demonstrated  that  when  coir.n.and 
equilibrium  was  reached,  even  nonsinguler  variables  do  net 
necessarily  reach  equilibrium. 

figure  4  shows  the  system  response  for  a  sideslip  comm ana  of  2 
degrtts.  Piee  time  for  the  sideslip  response  was  C.7L1  seconds 
while  settling  time  is  1.7C  seconds.  Overshoot  was  limited  to 
only  l.CS  percent  ever  final  value.  All  variables  reached  scr.  e 
steady-state  value,  as  opposed  to  the  roll  rate  command  response, 
since  the  sideslip  command  was  net  singular. 
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3.4.3  Summary  of  Closed-Loop  Results 

In  addition  to  the  nominal  flight  condition,  26  ether  cases 
were  run  using  three  values  of  each  flight  condition  variable. 
The  results  vert  listed  in  Table  4.  Listed  were  the  closed-loop 
eigenvalues  and  the  response  char acteristics  for  two  command 
vectors  . 

The  two  commands  were  chosen  for  typical  values  which  may  be 
encountered  in  actual  flight  testing.  In  particular,  a  roll  rate 
of  1C  dcg/sec  with  ztre  sideslip  and  a  sideslip  of  2  deg  with 
zero  roll  rate  were  chosen. 

The  response  charateristics  of  interest  are:  rise  time,  the 
tine  tc  go  from  1C  tc  9C  percent  of  final  value;  overshoot,  the 
percentage  ever  final  value  at  the  first  peak;  settling  time,  the 
time  required  tc  settle  tc  within  1  percent  of  final  value; 
steadi-state  error  in  roll  rate,  as  a  percentage  of  final  value 
for  a  roll  rate  command  and  as  an  absolute  number  for  a  sideslip 
command;  and  steady-state  error  in  sideslip,  as  an  absolute 
nun  her  for  a  roll  rate  command  and  as  a  percentage  of  final  value 
for  a  sideslip  command. 
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Closed-Loop  Results 
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Chapter  IV 
GAIN  SCHEDULING 

Up  to  this  point,  the  control  system  consisted  of  27  different 
flight  conditions  and  hence  27  different  sets  of  gains.  Ihe 
problem,  was  to  find  a  scheme  to  schedule  the  gains  such  that  the 
microprocessor  would  have  the  correct  set  of  gains  for  the 
particular  flight  condition.  The  limitations  of  the 
microprocessor  and  the  requirements  of  the  CAS  each  had  an  effect 
or.  the  eventual  gain  scheduling  solution. 

A s  mentioned  above,  the  microprocessor  limitations  affected 
the  fern,  cf  the  gain  schedules.  In  particular,  the  memory  space 
afforded  the  C/-.S  progran  was  limited  to  about  2BK  bytes.  In 
addition,  the  mi croprocesscr  could  only  do  a  limited  number  cf 
cal  e  ul  at  icr.s  during  any  interval  of  tine.  It  vas  desirable  to 

cc r;t  l  r.ecus  1  y  update  the  gains  to  account  for  changes  in  the 
flight  condition,  but  all  calculations  vould  have  to  be  dene 
vithir.  the  sampling  time,  C.l  seconds.  hence,  the  gain  schedule 
had  to  be  as  small  as  possible  vithout  sacrificing  accuracy, 
which  the  CAS  required  for  proper  operation. 

Ivo  methods  could  have  been  used  for  gain  scheduling.  Ihe 
first  was  a  table  lookup  method  where  the  computer  senses  the 


flight  condition  and  looks  up  the  appropriate  gains. 


In  order 


for  this  scheme  to  work  effectively,  there  would  have  had  to  be  a 
large  table  covering  the  variety  of  flight  conditions  which  the 
aircraft  might  encounter .  Such  a  method  was  not  possible ,  since 
it  required  large  memory  space  not  available  in  the 
microprocessor.  Therefore,  this  method  of  scheduling  was 
re  je  cted  . 

The  second  method  involved  calculating  the  gains  as  functions 
of  the  flight  condition.  This  method  included  investigation  into 
the  sensitivities  of  the  gains  to  changes  in  the  flight  condition 
arid  selection  of  a  suitable  solution  form  to  match  those 
sensitivities.  by  using  the  same  solution  form  for  as  many  gains 
as  possible,  the  coefficients  could  be  put  into  a  set  of  matrices 
to  simplify  calculations  and  reduce  the  computation  time.  This 
method,  toe,  had  its  drawbacks,  in  that  if  the  gains  were  to  be 
updated  every  sampling  time,  a  scheme  had  to  be  developed  to  dc 
oil  calculations  within  the  sampling  time.  however,  the 
drawbacks  in  this  method  did  not  seem  as  serious  as  those  of  the 
ether  method;  therefore,  this  method  was  selected. 

This  chapter  covers  the  formulation  of  the  gain  equations.  ir. 
particular  the  flight  condition  functions,  which  are  used  in  the 
gain  ecuatior.s,  are  discussed,  as  is  the  selection  of  the 
solution  forms  for  the  flight  condition  functions.  In  addition, 
the  gain  coefficient  matrix  computation  method  is  covered. 
Finally,  results  are  included  showinq  a  simulation  for  a  nominal 
flight  condition  using  the  gain  schedules. 
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4.1  FLIGHT  CONDITION  FUNCTIONS 

At  each  flight  condition,  a  different  set  of  gains  was 
required  to  provide  satisfactory  control  of  the  aircraft.  Thus, 
the  gains  were  functions  of  the  flight  condition  variables  and 
could  be  represented  as  follows: 

C  =  f ( a )  f(Tc)  f(q)  (4-1) 

Hit  gain  scheduling  task  vas  to  find  suitable  flight  condition 
1  unc  t  ions-- f  (  a  )  ,  f(Tc),  f(q)--vhose  solutions  were  accurate 
con. par  ea  to  the-  actual  gains  at  any  condition. 

The  flight  condition  functions  vt-rc  required  to  reflect  the 
sensitivities  cf  the  ci  ir.s  tc  tael,  fliglt  ccnaitici.  variable  .  Ly 
ii  u  Stic.;  t  ii  c  these  sensitivities,  it  was  pcssitle  tc  r.arrcv  dev.n 
the  different  solution  forts .  Hus  vas  acne  b>  plotting  the 
gems  versus  ent  flight  condition  variable,  holding  >  -..cl  the 

ether  flight  condition  variables  constant. 

it  vas  desiratle  to  find  solution  forms  vhic)  ccula  be  used  tc 
schedule  mere  than  a  single  gain.  fcy  doing  this,  impi  en.entat  ion 
cf  the  schedules  in  the  CAi  was  simpler  and  matrix  manipulation 
ccula  bt  dene  with  less  memory  space  than  otherwise.  Therefore, 
selection  of  flight  condition  functions  was  limited  to  those 
which  cculd  be  used  for  several  gains. 

The  data  used  for  gain  scheduling  included  the  27  sets  of 
gains  and  flight  conditions  reflecting  all  possible  combinations 
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cf  the  three  values  for  each  flight  condition.  The  results  are 
presented  in  Table  5.  tince  only  three  values  of  each  flight 
condition  variable  were  used,  the  polynomial  functions. 
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q 
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scheduled  the  gains  exactly.  (Any  three  points  can  be  described 
by  a  seccnd-crdei  function).  When  these  flight  condition 
functions  vert  multiplied  in  (4-1)  and  put  into  matrix  lorm,  a 
gain  coefficient  matrix  cf  14  by  27  resulted.  Though  this  vas 
net  necessarily  toe  large  for  use  in  the  microprocessor,  it  did 
require  a  let  cf  computation  time  and  c  lot  of  memory  space  that 
ccula  h>ve  beer,  used  mere  effectively  by  the  CAL.  It  vas  felt 
that  it  would  be  better  to  reduce-  computation  time  and  accept 
some  error  in  the  gains  than  to  risk  net  being  able  to  do  tie 
leccircu  computations  within  the  sampling  interval. 
Nevertheless,  the  exact  solution  did  give  a  starting  point  fer 
cem  {  a r l s  c  n  . 


Ir.  -dcition,  a  correlation  factor  was  computed  for  the  gain 
schedules  to  determine  how  well  the  gain  schedule  approximated 
the  actual  gair.s.  The  factor  was  computed  as  follows: 

CCKPLLAT10N  =  1  -  ( ^ ^ac tual -^sched ul ed ^ /C  ,)^  (4-S) 

actual 

It  was  found  that  a  correlation  below  C.fc  resulted  in  simulations 
which,  did  net  reach,  command  equilibrium,  while  correlations  abeve 


73 


that  figure  gave  good  results.  Using  the  second-order  solutions 
for  all  flight  condition  functions  (as  discussed  above)  resulted 
in  a  correlation  of  .S99C  —  the  error  due  to  roundoff. 

1o  facilitate  computation  of  the  .gain  equations,  the  gains 
were  numbered  as  follows: 
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4.2  SELECTION  OF  SOLUTION  FORMS 

The  plots  of  the  gain  sensitivities  are  shown  in  Figures  b 
through  7.  The  plots  were  made  by  holding  two  flight  condition 
variables  constant  and  plotting  the  variation  of  the  gains  versus 
variations  in  the  third  flight  condition  variable.  Figure  b 
shovs  the  angle  of  attack  sensitivities  of  the  gains.  In 
general,  the  gains  followed  no  particular  pattern;  hence,  it 
seemed  simplest  tc  use  the  second-order  solution  discussed 
previously . 

Figure  C  shev.s  the  gain  variations  with  respect  tc  throttle 
setting.  All  gains  appeared  to  be  linear  in  throttle  (due  tc  the 
linear  assumption  used  in  the  model  formulation).  Ihus,  an 
appropriate  solution  vas  a  first-erder  equation: 

f n c )  »  ct  -»  lc  (4-t) 

Ir,  addition,  a  let  of  the  cair.s  sloped  tovards  zero  as  throttle 
setting  increased  (implying  proportionality  to  the  inverse  ci 
1  ) .  Since  several  gains  shoved  this  characteristic,  another 

possible  solution  form  vas: 

f(T  )  =  e_Ctric  (4-7) 

Indeed,  this  turned  out  to  be  the  cast  for  half  the  gains.  (In 
those  gains  vherc  this  form  vas  appropriate,  tht  constant  term, 

,  had  to  be  the  same  for  every  gain.  It  vas  found  that  L ^  - 
C.Cti  vas  satisfactory). 
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Figure  7  shows  the  gain  sensitivities  to  changes  in  dynamic 
pressure.  Almost  all  the  gains  behaved  similarly.  In 
particular ,  the  gains  curve  toward  zero  as  dynamic  pressure 
increased.  Luch  a  form  suggested  a  solution  of: 

f(q)  =  °G/q  (4-t) 

cr 

f(q)  =  t"LC^  (4-9) 

both  (4-fc)  and  (4-9)  required  constants  which  had  to  be  the  same 
for  at  least  several  gains  or  the  solution  form  was  net 
dtsireble.  however,  constants  could  not  be  found  in  either  cast 
which  would  sche-dult  ar.y  more  than  a  few  gains.  hence,  the 
solution  form  used  for  the  dynamic  pressure  equation  was  the 
stccnd-crucr  solution  previously  discussed. 
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figure  7:  Gear,  Oer.sitivities  to  Changes  in  Dynamic  Pressure 

Thus  the  tvo  solution  forms  for  the  throttle  function  resulte-c 
rr.  tvc  gain  equations  --  each  solution  form  vas  used  for  half  the 
gains.  The  forms  are  as  follovs: 

1.  Per  gains  1,  L,  7,  P,  S,  11,  and  12: 

C  =  (fcc  4  a  +  B2a2)e_CG1c(D^D1q  +  D2q2  )  U-1C) 

2.  Por  gains  2,  3,  4,  G,  10,  13,  and  14: 

G  =  (tc  +  +  B.a2)(Gc  -f  C'1Tc)(Dl  -t  D:q  +  D~q2  ) 
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(4-11) 


When  the  equations  were  multiplied  out,  they  took  the  form: 


C  T  C  T  -  r  T  —  2 

C  =  AQe  0  c  +  A^O  c  qT  +  A2  e^O  c  q  + 

CT  CT-  PT— 2 

Aj  e  0  c  a  +  A^  e  0  c  q  a  +  A^  e  0  c  q  a  + 

CT2  CT-2  PT-2  2 

A6  e  0  c  a  +  A,  e  0  c  q  a  +  A8  eL0  c  q  aa  (4-12) 

and 

C=A0+A1Tc+A2^+ 

-2 

A3  Tc  q  +  A4  q  +  A5  Tc  q  + 

A6  3  +  A7  Tc  3  +  A8  q  3  + 


2 

_ 

■9  Tc2<!  a  + 

CP  rsj 

o 
• — \ 

< 

a  +  A. ,  T 
11  c 

q  a  + 

12  a  +  A13 

T  a 
c 

+  A14  i  a  + 

m  -  2 

-2  2 

-2 

15  Tc  13  a 

+  A16 

q  a  +  A17 

T  q 
c 

In  this  form,  the  equations  could  Lc  written  as  a  matrix 
equation: 

C  =  [A]  fc  (4-14) 

where  C  is  the  gain  matrix  (14  x  7  in  either  case) ,  A  contains 
the  coefficients  of  the  gain  equations  (14  x  9  for  equation 
(4-12)  and  14  x  18  for  equation  (4-13) ,  and  f£  is  the  flight 
condition  vector  consisting  of  all  the  combinations  of  the 
flight  condition  variables  (9x1  for  equation  (4-12)  and 
18  x  1  for  equation  (4-13) . 
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4.3 


COMPUTATION  OF  THE  COEFFICIENT  MATRICES 


Once  the  flight  condition  functions  were  determined,  the 
coefficients  of  the  gain  equations,  [A],  could  be  found.  To 
simplify  the  calculations,  all  the  gains  with  the  same  form  of 
gain  equation  were  assembled  into  a  matrix  equation;  thus  only 
two  matrix  manipulations  needed  to  be  accomplished  —  one  for 
each  gain  equation.  The  matrices  were  set  up  as  follows: 


[A] (f£1  f£2  .  .  .  fc2?3 


(4-15) 


or  more  simply 

[C]  =  [A] [FC]  (4-16) 

where  the  column  vectors  of  C  are  the  gains  at  one  particular 
flight  condition,  the  column  vectors  of  FC  are  the  flight  con¬ 
dition  combinations  for  one  particular  flight  condition,  and  A 
contains  the  coefficients  of  the  equations.  Since  FC  was  not 
necessarily  square,  the  solution  of  A  involved  a  "pseudo-inverse 
of  FC  (Ref.  8).  The  pseudo- inverse  was  defined  as  follows: 

#  T  T  -1 

FC  =  FC  (FC  FC  )  (4-17) 

such  that: 

[A]  =  [CD  [fc]# 

The  final  solution  of  the  two  coefficient  matrices,  A^  and 
A^ ,  is  presented  in  Tables  6  and  7.  The  matrix  A^ 
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(where  f { 1 ^ )  =  t^C^c)  vas  7  by  9  whilt  A. 

(where  f(Tc)  =  C‘c  4  C  c )  was  7  by  16.  Taken  together,  the 
matrices  reflected  a  reduction  of  one  half  over  the  exact 
solution.  The  average  correlation  was  .9069  with  the  lowest 
being  .6200  cr.  gain  12. 
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4.4 


GAIN  SCHEDULING  SIMULATION 


In  order  to  verify  the  accuracy  of  the  gain  schedules,  a 
simulation  was  run  at  the  nominal  flight  condition  using  the 
gain  schedules,  and  the  results  were  compared  to  those  results 
obtained  using  the  actual  gains.  Some  slight  differences 
were  noted  between  the  actual  and  scheduled  gains  and,  conse¬ 
quently,  the  closed-loop  eigenvalues  and  responses  were  slightly 
different . 


The  actual  gains  and  the  schedule  gains  at  the  nominal 
flight  condition  are  listed  below  for  comparison. 


Actual  Gains 


Scheduled  Gains 


0.724 

-.826  - 

.016  0.084 

0.739  -.846 

-.015 

0.288 

-.673  0 

.601  2.908 

C.  =  0.286  -.672 

b 

0.601 

-0.167 

1.627 

-0.174 

1.650 

Cf  = 

-1.172 

-.386 

Cf  =  -1.174 

-.389 

-0.253 

0.0 

-0.263 

0.0 

c .  = 

l 

-2.898 

0.0 

C.  =  -2.900 

l 

0.0 

In  cross  checking  the  individual  gains,  small  differences  were 
noted  between  the  actual  and  scheduled  gains.  This,  in  turn, 
led  to  the  expectation  that  there  would  be  differences,  though 
hopefully  small,  in  the  eigenvalues  and,  hence,  responses. 

The  characteristic  equations  for  the  actual  and  scheduled 
closed-loop  systems  were  as  follows: 
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Actual  Cains 


C  =  (s+2 .127-1 .6fcCj) (s+2 . 827+1 .tfefcj) ( s+5. 369-1 .629 j) 

(s+5. 365+1 .629 j) 

Scheduled  Cains 

C  =  (s+2 . fcfcL-1 . 54L j) ( s+2 . Ebb  +  1 .846 j) ( s+5 . 37C-1 .CSC j) 

(s+5. 27C  +  1  .  C  5C  j  ) 


As  expected,  the  eigenvalues  did  show  only  slight  variations; 
thus,  the  sche-duled  gains  give  a  good  representation  of  the 
actual  ones  . 


Since  the  gains  and  the  eigenvalues  of  the  actual  and 
scheduled  cair.  systems  were  only  slightly  different,  it  vas 
reasonable  tc  expect  only  slight  variations  when  comparing  the 
responses  of  the  two.  Figure  fc  shows  the  response  of  the  system 
to  a  roll  rate  command  cf  It  degrees  per  second.  The  rise  time 
fer  the  rcll  rate  response  vas  C.152  seconds  compared  tc  C.152 
seconds  fc.  the  actual  gains.  Settling  time  vas  1.15  seconds 
compared  to  1.15  seconds  and  overshoot  vas  14.51  percent  over 
fir.al  value  compared  to  14.73.  So  the  roll  rate  responses  vere 
almost  identical.  In  addition,  the  gain  schedule  sideslip 
response  did  not  reach  steady-state  as  it  did  in  the  actual  cur. 
case.  The  rate  of  change  is  very  small,  however,  so  that  the 


disequilibrium  is  not  a  significant  factor. 


ligure  9  shows  the  system  response  to  a  sideslip  command  of  2 
degrees.  Rise  time  for  the  sideslip  response  was  C . 766  seconds 
compared  to  0.751  seconds  in  the  actual  gain  case.  Settling  time 
was  C.9G  seconds  compared  to  1.70  seconds  and  overshoot  was  0.55 
percent  over  final  value  com.pared  to  1.05.  The  settling  time 
difference  was  attributable  to  the  smaller  overshoot  and  the  way 
settling  time  is  defined  (time  to  within  1  percent  of  final 
value  )  . 
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Chapter  V 
FLIGHT  TESTING 

The  final  test  of  the  CAS  designed  in  this  study  was  to 
use  the  CAS  in  actual  flight.  To  do  this,  CAS  software  com¬ 
patible  with  the  microprocessor  systems  was  developed,  imple¬ 
menting  the  control  law  developed  in  Chapter  3  and  the  gain 
schedules  calculated  in  Chapter  4 .  Microprocessor  limitations 
in  memory  space  and  computational  speed  as  well  as  control 
system  requirements  of  sampling  time  and  accuracy  were  consider¬ 
ed  in  the  software  development. 

Once  the  software  was  developed,  a  limited  number  of  ground 
tests  were  performed  before  the  actual  flight  tests.  The  ground 
tests  were  used  to  check  the  CAS  software  against  known  simula¬ 
tion  results  and  to  insure  that  the  correct  signs  on  the  outputs 
were  generated  in  an  actual  run-time  situation. 

Finally,  actual  flight  tests  were  performed.  The  flight 
tests  included  tests  on  the  basic  airframe  to  get  an  understand¬ 
ing  of  the  lateral-directional  characteristics  in  the  stall 
regime  and  to  help  verify  the  model;  tests  of  the  pilot's  ability 
to  control  the  aircraft  during  the  stalled  conditions  for  com¬ 
parison  with  the  CAS;  and  finally,  tests  of  the  CAS  operation 
wherein  the  control  system  was  required  to  maintain  a  wings-level 
attitude  throughout  the  stall  maneuver. 

This  chapter,  then  describes  the  Microprocessor-based  Digital 
Flight  Control  System  (Micro-DFCS)  and  the  software  that  was 
developed  to  implement  the  control  system.  In  addition,  a  dis¬ 
cussion  of  the  ground  tests  is  included.  Finally,  the  actual 
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flight  test  results  are  covered  including  the  flight  test  pro¬ 
cedures,  the  results  of  the  individual  set  of  tests,  and  an 
analysis  of  the  overall  results. 


S 


5.1  DESCRIPTION  OF  THE  MICRO-DFCS 

There  were  four  Micro-DFCS  functions:  accept  analog  inputs 
of  aircraft  states  and  pilot  commands;  update  the  gains;  compute 
the  control  law;  and  output  commands  to  the  control  surfaces. 

The  microprocessor  needs  certain  characteristics  to  perform  these 
functions.  It  needs  to  have  a  reasonably  fast  computation  time 
capability.  The  bit  precision  should  be  at  least  as  good  as  that 
available  from  the  A/D  converters.  Finally,  the  A/D  and  D/A  con¬ 
verters  must  have  a  resolution  compatible  with  aircraft  sensors. 

The  Micro-DFCS  is  built  around  a  Monolithic  Systems  Corpora¬ 
tion  (MSC )  8004  board.  The  MSC  8004  board  has  32K  of  random-access 
memory  (RAM),  of  which  28K  is  available  for  the  CAS  software;  a 
programmable  read-only  memory  (PROM)  containing  the  Uniform 
Moniter  ( UFM)  for  loading,  running,  and  dumping  the  CAS  program; 
a  Zilog  Z80  central  processing  unit  (CPU) ;  and  an  AM-9511  high¬ 
speed  mathematics  unit.  In  addition,  the  Micro-DFCS  has  A/D 
and  D/A  converter  boards.  All  three  boards  are  put  into  a  card 
cage  and  are  connected  to  a  hand-held  control-display  unit  (CDU) . 

The  ARA  is  equipped  with  analog,  digital,  and  mechanical 
control  systems.  An  overview  of  the  control  system  inter¬ 
relationship  with  the  aircraft  and  pilots  is  presented  in 
Figure  10.  The  analog  and  digital  control  systems  can  operate 
simultaneously  such  that  digital  control  of  the  lateral- 
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within  the  sampling  time.  Because  the  microprocessor  had 
limitations  concerning  the  number  of  computations  that  could  be 
done  within  any  specific  time  period,  the  CAS  software  had  to 
compromise  these  conflicting  requirements. 

The  software  was  developed  using  the  K6C  BOOS  disk  system 
available  at  FRL.  The  6GC9  system  consisted  of  a  KSC  fcG06  board, 
a  card  cage,  two  SPG  floppy-disk  drives,  an  Abh-31  terminal,  arid 
an  Anadex  95C1  line  printer.  The  B0C9  board,  card  cage,  and  disk 
drives  are  mounted,  with  a  power  supply,  in  a  cabinet  which  also 
houses  FKL's  Telemetry  Fonitering  system.  The  B0C9  computer  uses 
the  (_F/F  system  monitor.  The  monitor  can  be  configured  to  run 
with  32K  or  64K  of  KAK,  32K  provided  by  the  6GGS  board  and  the 
additional  32K  provided  by  other  circuit  boards. 

There  were  two  problems  with,  implementation  that  had  to  be 
resolved  for  the  control  system  to  work.  The  first  was  the 
integration  of  the  roll  rate  command  to  multiply  by  the  integral 
cam  matrix,  m.  This  was  easily  resolved  by  noting  that  the 
integral  of  roll  rate  is  the  roll  angle  so  that  the  integral 
could  be  found  by  the  following  equation: 

Apc  =  Afic  +  Apt  *  At  (b-1) 

Uc  =  APC 

where  Ap^  is  the  roll  rate  command  and  At  is  the  sampling  time. 
The  second  problem  was  the  determination  of  the  trim  condition 
about  which  the  perturbations  would  be  measured .  This  was 
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resolved  by  allowing  the  operator  to  set  a  flag  to  reset  the 
nominal  condition  anytime  the  aircraft  was  at  a  new  trim.  The 
input  was  put  in  as  part  of  the  background  program  which  ran  when 
the  control  law  sequence  was  not  running. 

The  control  sequence  of  CAS  was  initiated  by  an  interrupt  from 
the  clock  at  each  sampling  time.  When  the  control  sequence  was 
not  being  executed,  a  background  routine  accepted  inputs  from,  the 
CLL  and  had  the  capability  of  performing  a  limited  number  cf 
tasks  . 

The  computation  of  the  control  lew  began  by  entering  the 
current  values  cf  the  states.  Hie  perturbation  values  then  were 
found  by  subtracting  the  nominal  state  values  (i.e.,  the  trini 
condition,  which  was  set  when  the  program  was  initialized)  from 
the  current  value  of  the  state.  The  rudder  and  aileron  commands 
then  were  computed  with  the  perturbations  and  the  control  gains, 
finally,  the  commands  were  sent  to  the  control  surfaces. 

The  sequence  described  above  did  not  present  a  problem  with 
computation  time.  however,  it  was  desirable  to  update  the  gains 
continuously  to  account  for  changes  in  the  flight  condition.  The 
number  of  calculations  required  for  such  a  task  proved  to  be  time 
consuming  indeed.  The  control  law  calculations  and  update  of  the 
14  gains  required  i  .  2b  seconds  --  two  and  a  half  times  the 
sampling  interval.  To  run  at  this  rate  would  seriously  degrade 
the  control  law  effectiveness,  particularly  since  the  gains  were 
all  computed  with  a  sampling  interval  of  C.l  seconds. 
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To  circumvent  this  problem,  the  gains  vert  updated  over  a 
number  of  control  cycles  such  that  only  one  gain  per  sampling 
interval  was  updated.  Thus,  each  gain  was  updated  every  l.< 
seconds.  Updating  more  than  one  gain  caused  the  control  sequence 
to  use  more  than  its  allotted  time.  Figure  11  shows  the  typical 
execution  of  the  CAS  program.  The  low  break  corresponds  to 
entering  the  control  sequence,  while  the  high  break  corresponds 
to  leaving  it.  As  can  be  seen  in  the  figure,  the  control 
sequence  used  about  C.tfc  seconds  in  this  form. 


Figure  11:  Control  System  txecution  Cycle 

Hie  gain  updates  were  accomplished  prior  to  computation  cl  the 
control  law  sc  that  the  most  recent  gains  would  be  used.  Fuudex 
gains  were  updated  first,  followed  by  aileron  gains.  A  flowchart 
for  the  control  sequence  is  depicted  in  figure  12  . 

The  background  routine  allowed  the  pilot  to  input  commands  for 
a  limited  number  of  options  including:  reinitialization,  halting, 
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and  breaking  the  program  execution;  a  test  for  A/D  and  L/l. 
functions;  and  a  reset  for  the  nominal  condition  state  values.  1. 
detailed  description  of  the  background  routine  and  the  control 


1 


sequence  is  presented  in  Appendix  C. 


5 . 3  GROUND  TESTS 


Before  the  flight  tests  were  performed,  a  preliminary 
set  of  tests  was  accomplished  on  the  ground  to  insure  that  the 
software  computations  were  correct  and  that  the  correct  signals 
were  being  sent  to  the  control  surfaces.  Two  sets  of  ground 
tests  were  used  to  verify  the  CAS  operation. 

The  first  test  included  interfacing  the  microprocessor  to 
the  analog  computer  and  sending  voltages  from  the  analog  to  the 
microprocessor.  The  voltages  corresponded  to  known  values  of 

i 

the  state  and  flight  condition  variables  found  from  simulations. 
Outputs  were  then  checked  to  insure  that  the  correct  voltages 
were  being  sent  out  from  the  microprocessor  to  the  control  sur¬ 
faces.  To  facilitate  this  check,  the  software  had  a  ground  test 
mode  which  enabled  each  step  of  the  control  law  calculation  to 
be  sent  to  the  line  printer.  These  results  were  then  cross¬ 
checked  against  simulation  results  and  the  discrepencies  corrected. 

Once  it  was  ascertained  that  the  control  system  calculations 
were  being  done  correctly,  a  second  set  of  ground  tests  was  per¬ 
formed  to  insure  that  the  signs  of  the  outputs  were  correct.  The 
aircraft  control  surfaces  were  capable  of  being  operated  on  the 
ground  using  auxiliary  power  and  hydraulic  sources.  The  CAS  was 
loaded  onto  the  airplane  as  it  would  be  during  the  actual  flight 
tests  and  then  inputs  were  generated  for  the  microprocessor  using 
the  aircraft  sensors.  The  tests  were  used  to  prove  that  for  a 
given  input,  certain  control  surface  deflections  would  be  gener¬ 
ated.  With  the  completion  of  these  tests,  the  control  system  was 
ready  for  actual  flight  situations. 
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5.4 


FLIGHT  TESTS 


The  objective  of  the  flight  tests  was  to  examine  the 
capabilities  of  the  CAS  into  the  stall  regime  and  compare  the 
results  to  those  of  the  pilot  in  a  similar  situation.  It  was 
hoped  that  the  control  system  would  maintain  lateral-directional 
stability  better  than  the  pilot  could  and  thus  free  the  pilot 
to  perform  other  tasks.  To  accomplish  this  objective,  a  series 
of  flight  tests  were  developed  and  flown  to  examine  different 
aspects  of  the  aircraft,  pilot,  and  control  system. 

The  first  set  of  tests  was  set  up  to  examine  the  stability 
of  the  basic  aircraft  in  the  stall  regime.  To  do  this,  the 
lateral-directional  controls  were  locked  in  a  trim  condition 
just  prior  to  stalling  the  aircraft.  Based  upon  the  results  of 
the  model  developed  in  Chapter  2,  the  aircraft  was  expected  to 
exhibit  lateral-directional  instabilities  once  the  stall  was 
encountered.  The  results  of  this  set  of  tests  pointed  out  the 
problems  that  the  pilot  and  CAS  were  required  to  overcome. 

The  second  set  of  tests  looked  at  the  pilot's  abilities 
during  the  stall.  In  this  case,  the  pilot  attempted  to  maintain 
a  wings-level  attitude  while  the  aircraft  was  stalled.  Based 
on  previous  stall  testing,  the  pilot  was  expected  to  have 
trouble  overcoming  the  instabilities.  The  results  from  these 
tests  were  used  in  comparison  with  the  CAS  operation. 

The  final  set  of  tests  examined  the  control  system  capabil¬ 
ities.  In  these  tests,  the  pilot  stalled  the  aircraft  while 
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the  CAS  attempted  to  maintain  lateral-directional  trim.  From 
the  results  of  the  CAS  development,  the  control  system  was 
expected  to  provide  stability  for  the  aircraft  into  the  stall 
regime.  These  tests  were  used  to  determine  the  success  or 
failure  of  the  CAS  based  on  its  ability  to  maintain  stability. 

For  each  of  these  tests,  a  couple  of  conditions  were  intro¬ 
duced  which  were  known  to  affect  the  stability  of  the  ircraft. 
Since  it  had  been  found  that  throttle  setting  affecte  stability 
(Ref.  1),  two  throttle  settings  were  examined.  In  ad  .ion, 
"pitch  pumping",  or  the  rapid  oscillation  of  the  angl  attack, 

was  also  found  to  radically  affect  lateral-directional  stability. 
In  this  case,  it  was  also  interesting  to  find  out  how  well  the 
CAS  could  keep  up  with  the  oscillations  since  the  gains  were 
angle-of-attack  sensitive  but  were  rescheduled  completely  only 
once  every  1.4  seconds.  Thus,  each  set  of  tests  included  four 
test  runs  including:  low  power  setting  with  no  pitch  pumping; 
low  power  with  pitch  pumping;  high  power  with  no  pitch  pumping; 
and,  finally,  high  power  with  pitch  pumping.  The  tests  outlined 
above  are  summarized  in  Table  7. 

Documentation  of  the  test  results  for  analysis  and  inclusion 
into  the  report  was  accomplished  using  a  data  telemetry  system 
already  incorporated  into  the  aircraft  and  ground  station.  In 
this  case,  the  aircraft  telemetry  system  received  data  on  the 
aircraft  attitude  from  aircraft  sensors.  These  data  then  were 
transmitted  to  a  recording  system  at  the  ground  station. 
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Table  7 


FLIGHT  TEST  DOCUMENTATION 


Trim  Conditions: 


V=70  kts . ,  6f=0°,  MAP=20 " ,  RPM=2500, 
Mixture=Normal 


Run 

1-1 

1-2 

1-3 

1- 4 

2- 1 
2-2 
2-3 

2- 4 

3- 1 
3-2 
3-3 
3-4 


Lat/Dir 

Controls 

Locked 


Manual 


CAS 


Power 


15"/ 


2  5”/ 


15"/ 


2500  RPM 


2500  RPM 


2500  RPM 


2  5"/ 


15"/ 


25"/ 


2500  RPM 


2500  RPM 


2500  RPM 


Pitch 

Pulse 

N 

Y 
N 

Y 
N 

Y 
N 

Y 
N 

Y 
N 

Y 
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For  these  tests,  the  data  which  could  be  recorded  were 
limited  to  four  channels.  The  flight  condition  variables, 
angle  of  attack  and  velocity,  were  recorded  to  ascertain  the 
onset  and  severity  of  the  stall.  In  addition,  these  two 
variables  {plus  throttle  seting  which  was  constant  for  each 
test  run)  were  used  to  schedule  the  gains.  Along  with  these 
variables,  two  lateral-directional  attitude  variables  were 
recorded:  sideslip  and  roll  angle.  These  variables  were  used 
to  determine  the  performance  of  the  pilot  and  CAS  during  the 
test  runs. 

5.4.1  Airframe  Tests 

The  purpose  of  these  tests  was  to  get  a  feel  for  the 
stability  of  the  basic  airframe  in  a  stalled  condition.  To 
accomplish  these  tests,  the  aircraft's  lateral-directional 
controls  were  trimmed  and  locked  into  position.  The  aircraft 
was  then  stalled  and  its  response  recorded.  From  there,  the 
data  were  analyzed  and  a  picture  of  the  lateral-directional 
stall  characteristics  was  formed. 

From  the  model,  a  preliminary  idea  of  how  the  aircraft 
should  react  in  a  stall  was  obtained.  The  eigenvalues  for 
the  aircraft  at  a  stall  angle  of  attack,  low  power  setting 
and  low  airspeed  point  to  an  unstable  roll-spiral  mode.  In 
this  case,  a  divergent  roll  angle  with  some  oscillations  was 
expected.  For  high  power  setting,  the  eigenvalues  predict 
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the  same  type  of  response  with  a  slightly  longer  time  constant 
and  slower  oscillation  rate.  No  information  was  available 
from  the  model  pertaining  to  the  effect  of  pitch  pumping. 

Figures  13  through  16  present  the  results  of  this  set  of 
tests.  In  each  test,  the  stall  is  characterized  by  the  aircraft 
exceeding  the  critical  angle  of  attack,  which  from  NASA  TN 
D- 5 7 5 8  was  found  to  be  18  deg  angle  of  attack.  (The  spikes 
which  occur  throughout  the  data  were  the  result  of  telemetry 
dropouts . ) 

In  the  case  of  the  low  power  settings  (Figures  13  and  14), 
the  results  were  as  expected.  In  each  case,  as  the  stall  was 
encountered,  the  aircraft  began  to  oscillate  around  a  slowly 
divergent  roll  angle.  In  Figure  13,  with  no  pitch  pumping, 
the  aircraft  was  trimmed  for  a  roll  angle  of  3.2  deg  and  a 
sidesl  p  of  4.5  deg.  Twenty  seconds  after  the  stall  was  encoun¬ 
tered,  the  roll  angle  reached  a  maximum  of  61.5  deg  before  the 
aircraft  was  recovered.  Sidesl  p,  while  apparently  not  divergent, 
was  very  erratic,  ranging  from  -9.5  deg  to  5.8  deg  —  as  much  as 
14.2  deg  from  trim.  The  maximum  angle  of  attack  encountered  was 
33.1  deg  and  the  minimum  velocity  was  61.6  knots. 

In  Figure  14,  low  power  setting  with  pitch  pumping,  the 
results  were  similar.  The  trim  conditions  were  4.8  deg  for  roll 
angle  and  7.7  deg  for  sideslip.  The  maximum  roll  angle  prior 
to  aircraft  recovery  was  69.4  deg  occurring  28  sec  after  the 


stall  was  encountered.  Sideslip  ranged  from  0.0  deg  to  11.9 
deg  and  as  much  as  7.7  deg  from  trim.  The  maximum  angle  of 
attack  was  34.7  deg.  During  pitch  pumping,  the  aircraft  was 
subjected  to  changes  in  angle  of  attack  as  high  as  15.6 
deg/sec.  The  minimum  velocity  encountered  was  61.6  knots. 

The  problem  of  stalling  at  a  higher  power  setting  is  shown 
in  Figures  15  and  16.  In  both  cases,  the  aircraft  showed  very 
little  oscillation  compared  to  the  low  power  setting  but  the 
divergences  were  of  larger  magnitude  with  higher  roll  rates. 

In  Figure  15,  with  no  pitch  pumping,  the  aircraft  was  trimmed 
with  a  roll  angle  of  6.5  deg  and  a  sideslip  of  7.1  deg.  Once 
the  stall  was  encountered,  the  aircraft  remained  somewhat  stable 
for  a  few  seconds  as  the  angle  of  attack  increased.  Sideslip 
departed  trim  first,  oscillating  from  -16.5  deg  then  back  to 
18.7  deg.  Maximum  divergence  from  trim  was  23.6  deg.  Roll  angle 
hesitated  prior  to  departing  the  trim  condition  and  then  simply 
rolled  onto  one  wing.  Maximum  roll  angle  was  undetermined  since 
the  plot  went  off  the  scale  but  was  in  excess  of  75.0  deg. 

Large  roll  rates  as  high  as  36.5  deg/sec  were  encountered.  Maxi¬ 
mum  angle  of  attack  was  also  undetermined  but  was  in  excess  of 
40.0  deg.  The  minimum  velocity  was  50.0  knots. 

In  Figure  16,  high  power  setting  with  pitch  pumping,  the 
results  are  similar.  The  aircraft  was  timmmed  for  a  roll  angle 
of  6.5  deg  and  a  sideslip  of  7.1  deg.  After  the  aircraft  was 
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stalled,  sideslip  once  again  departed  trim  first,  ranging  from 
15.2  deg  to  -17.1  deg  —  as  much  as  24.2  deg  from  trim.  Roll 
angle  shows  the  aircraft  rolling  one  direction  and  then  back 
the  other  before  being  recovered  21  sec  after  the  stall  was 
encountered.  Maximum  roll  angle  was  79.9  deg  and  was  as  low 
as  -37.9  deg.  The  maximum  change  in  angle  of  attack  was  18.2 
deg/sec.  Minimum  velocity  was  50.0  knots. 

In  comparing  the  results  of  including  pitch  pumping  against 
those  where  pitch  pumping  was  not  done,  there  seems  to  be  little 
effect  on  the  stability  of  the  aircraft.  Indeed,  with  the  ex¬ 
ception  of  the  roll  left  in  Run  1-4  prior  to  the  roll  right, 
the  same  power  setting  gave  similar  results  regardless  of  pitch 
pumping . 

It  is  also  interesting  to  note  that  the  aircraft  always 
ends  up  rolling  towards  the  right  wing  and  that  the  maximum 
deviation  from  trim  sideslip  always  occurs  with  negative  side¬ 
slip.  These  results  are  due  to  torque  effects  of  the  engine 
and  point  to  problems  for  both  the  pilot  and  CAS  in  trying  to 
maintain  stability  of  the  aircraft  into  the  stall  regime. 

Overall,  the  aircraft  performed  as  predicted  by  the  model. 
At  the  low  power  settings,  the  aircraft  went  into  a  divergent 
oscillatory  roll  once  stall  was  encountered.  At  the  higher 
power  settings,  less  oscillation  was  encountered.  The  maximum 
divergence  occurred  around  the  same  time  in  both  cases. 
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5.4.2 


Pilot  Tests 


The  purpose  of  this  set  of  tests  was  to  determine  how 
well  the  pilot  was  able  to  maintain  lateral-directional  stability 
when  the  aircraft  was  stalled.  The  results  were  used  as  a  base¬ 
line  for  comparison  with  the  CAS  in  a  similar  situation.  Figures 
17  through  20  present  the  results. 

At  low  power  settings  (Figures  17  and  18) ,  the  pilot  was 
able  to  control  the  instabilities  fairly  well.  In  Figure  17,  low 
power  setting  without  pitch  pumping,  the  aircraft's  lateral- 
directional  attitude  showed  only  minor  deviations.  Roll  angle 
ranged  from  4.9  deg  to  12.9  deg  and  was  in  general  pretty  steady. 
Sideslip  was  also  fairly  steady,  ranging  from  1.3  deg  to  9-4  deg. 
The  maximum  angle  of  attack  encountered  was  32.6  deg  and  the 
minimum  velocity  was  53.2  knots. 

Figure  18  shows  the  results  of  low  power  setting  with 
pitch  pumping.  Once  again,  the  pilot  was  able  to  control  the 
instabilities  well  into  the  stall  regime,  though  the  addition 
of  pitch  pumping  caused  larger  deviations.  Roll  angle  varied 
anywhere  from  -1.6  deg  to  33.1  deg  while  sideslip  varied  from 
0.0  deg  to  16.8  deg.  The  maximum  angle  of  attack  encountered 
was  37.8  deg  with  rates  of  change  as  high  as  15.6  deg/sec. 

Minimum  velocity  was  53.2  knots. 

The  higher  power  settings  proved  to  be  much  more  diffi¬ 
cult  for  the  pilot.  Both  roll  angle  and  sideslip  deviations 
became  large  compared  to  low  power  settings.  In  particular, 
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the  sideslip  deviations  became  unmanageable  once  the  stall 
was  encountered. 

Figure  19  shows  the  results  of  high  power  setting 
without  pitch  pumping.  Roll  angle  deviations  were  large  though 
manageable,  varying  from  -9.7  deg  to  26.6  deg.  Sideslip  varia¬ 
tions  were  also  large  and  much  more  erratic.  Sideslip  angles 
from  -9.4  deg  to  12.6  deg  were  encountered.  Maximum  angle  of 
attack  was  37.9  deg  while  minimum  velocity  was  51.6  knots. 

Figure  20  presents  the  results  of  high  power  setting 
with  pitch  pumping.  In  this  case,  the  aircraft's  instabilities 
became  unmanageable  for  the  pilot.  Roll  angle  varied  anywhere 
from  -34.7  deg  to  43.5  deg  and  would  have  continued  to  increase 
had  the  aircraft  not  been  recovered.  Sideslip,  too,  showed 
large  deviations  ranging  from  -25.8  deg  to  20.7  deg  and  was 
continuing  to  increase  up  until  aircraft  recovery.  The  highest 
angle  of  attack  was  41.0  deg,  changing  at  reates  as  high  as 
24.3  deg/sec  during  pitch  pumping.  Minimum  velocity  encountered 
was  52.1  knots. 

In  comparing  the  results  of  no  pitch  pumping  to  those 
where  pitch  pumping  was  added,  some  definite  differences  were 
noted.  At  low  power  settings  without  pitch  pumping,  only  small 
deviations  in  lateral-directional  attitude  were  noted.  When 
pitch  pumping  was  included,  the  deviations  became  markedly 
larger,  particularly  in  the  case  of  sideslip.  Total  variation 
of  roll  angle  without  pitch  pumping  (measured  by  the  angle 
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between  the  minimum  and  maximum  roll  angle)  was  8.0  deg  compared 
to  34.7  deg  with  pitch  pumping.  For  sideslip,  total  variation 
without  pitch  pumping  was  8.1  deg  compared  to  16.8  deg  with 
pitch  pumping. 

The  results  were  similar  in  the  case  of  high  power 
setting.  Total  roll  angle  variation  without  pitch  pumping  was 
36.3  deg  compared  to  78.2  deg  with  pitch  pumping.  Total  side¬ 
slip  deviation  without  pitch  pumping  was  22.0  deg  compared  to 
46.5  deg  when  pitch  pumping  was  included. 

In  contrast  to  the  airframe  tests,  then,  pitch  pumping 
made  a  discernable  difference  in  the  results  where  the  pilot 
was  required  to  maintain  lateral-directional  stability.  This 
could  be  attributed  to  a  number  of  reasons.  First,  in  trying 
to  maintain  stability  at  low  airspeeds,  the  pilot  was  using 
sluggish  control  surfaces.  Since  the  aircraft's  attitude  was 
changing  rapidly  (due  to  the  inclusion  of  pitch  pumping) ,  the 
combination  of  relatively  slow  reaction  time  of  the  pilot  and 
sluggish  control  surfaces  would  make  it  difficult  to  overcome 
the  instabilities. 

Second,  whereas  the  pilot  had  outside  references  for 
maintaining  wings  level,  there  were  no  similar  references  for 
sideslip.  If  the  pitch  pumping  caused  sideslip  deviations, 
the  pilot  would  not  have  been  able  to  sense  and  correct  them. 
Flying  in  a  sideslip  would  tend  to  aggravate  the  aircraft's 
instabilities . 
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Finally,  just  the  effort  of  including  pitch  pumping  into 
the  results  may  have  taken  away  from  the  pilot's  attention  enough 
that  he  was  unable  to  maintain  stability  as  well  as  when  pitch 
pumping  was  not  included. 

Overall,  this  set  of  tests  showed  that  differences  in 
power  setting  and  the  inclusion  of  pitch  pumping  made  a  real 
difference  in  how  well  the  pilot  was  able  to  maintain  stability. 
Though  no  simulation  results  were  available  for  comparison, 
the  pilot  did  perform  as  had  been  found  in  previous  studies. 

5.4.3  CAS  Tests 

The  final  set  of  tests  was  run  to  determine  how  effective 
the  control  system  designed  in  this  study  was  in  eliminating 
the  instabilities  encountered  when  the  aircraft  was  stalled. 

To  accomplish  this  task,  the  aircraft  was  trimmed  prior  to 
actuating  the  control  system,  and  the  aircraft  was  stalled. 

The  control  system  then  was  required  to  maintain  the  lateral- 
directional  trim  into  the  stall. 

The  control  system  was  designed  with  relatively  rapid 
response  times.  Roll  rate  response  was  selected  to  be  as  quick 
as  possible,  while  the  sideslip  response  was  chosen  to  be  about 
one  second.  In  both  cases,  the  response  times  were  found  to  be 
sufficient  to  provide  stability  into  the  stall  regime  in  all 
simulation  results.  The  results  from  this  set  of  tests 
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permit  fully  legible  reproduction 


Figure  19.  Flight  Test  Run  2-3  Results 


are  presented  in  Figures  21  through  24. 


The  low  power  setting  results  are  shown  in  Figures  21 
and  22.  When  no  pitch  pumping  was  present  (Figure  21),  the 
CAS  had  no  trouble  at  all  maintaining  stability.  Roll  angle 
showed  negligible  variation  from  the  trim  value  of  8.1  deg. 
Sideslip  did  show  some  deviations  from  the  8.1  deg  trim  value, 
ranging  from  8.7  deg  to  3.2  deg  --  as  much  as  4.9  deg  from 
trim.  This  deviation  is  probably  due  to  the  slower  response 
time  demanded  for  sideslip.  The  maximum  angle  of  attack  was 
30.0  deg  while  the  minimum  velocity  was  50.0  knots. 

When  pitch  pumping  was  included  (Figure  22) ,  the  CAS  still 
responded  to  maintain  lateral-directional  stability.  Roll  angle 
was  trimmed  at  4.9  deg.  Once  stall  was  encountered  and  the 
pitch  pumping  begun,  the  aircraft  did  a  slow,  counterclockwise 
roll  to  -6.5  deg.  This  slow  roll  was  probably  due  to  the  in¬ 
ability  of  the  control  system  to  keep  up  with  the  rapidly  chang¬ 
ing  flight  condition.  Sideslip  also  showed  some  minor  deviations 
during  pitch  pumping.  Sideslip  was  trimmed  for  5.2  deg  but  was 
as  high  as  11.3  deg  or  6.1  deg  from  trim.  The  maximum  angle  of 
attack  was  31.0  deg  while  the  maximum  rate  of  change  of  the 
angle  of  attack  was  20.8  deg/sec.  The  minimum  velocity  encounter¬ 
ed  was  51.6  knots. 

Higher  power  settings  also  did  not  pose  a  problem  for  the 
control  system  though  larger  deviations  from  trim  were  noted 
than  at  the  lower  power  settings.  In  Figure  23,  high  power 
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setting  without  pitch  pumping,  roll  angle  was  trimmed  at  9.7  deg 
and  varied  from  16.2  deg  to  6.5  deg  or  as  much  as  6.5  from  trim. 
Sideslip  was  trimmed  at  8.7  deg  and  varied  from  11.3  deg  to  5.2 
deg  or  as  much  as  3.5  deg  from  trim.  The  maximum  angle  attack 
encountered  was  30.0  deg  while  the  minimum  velocity  was  50.0 
knots . 

When  pitch  pumping  was  included  with  a  higher  power  setting 
(Figure  24),  the  results  were  still  more  than  adequate.  Roll 
angle  was  trimmed  at  9.7  deg  and  varied  between  16.2  deg  and  3.2 
deg.  Maximum  deviation  from  trim  was  6.5  deg.  An  oscillation 
occurred  when  the  pitch  pumping  was  ended  and  the  aircraft  re¬ 
covered  and  was  probably  due  to  the  control  system  catching  up 
to  the  current  flight  condition.  Sideslip  was  trimmed  at  11.3 
deg  and  varied  from  13.2  deg  to  6.8  deg  --  as  much  as  4.5  deg 
from  trim.  The  largest  deviations  occurred  during  the  pitch 
pumping  phase  of  the  test  and,  once  again,  are  probably  due  to 
the  inability  of  the  control  system  to  keep  up  with  the  changing 
flight  condition.  The  maximum  angle  of  attack  was  36.9  deg 
while  the  largest  rate  of  change  for  angle  of  attack  encountered 
during  pitch  pumping  was  13.4  deg/sec.  Minimum  velocity  was 
47.6  knots. 

As  was  in  the  case  of  the  pilot  tests,  pitch  pumping  did 
have  an  effect  on  the  results,  though  not  as  drastic.  At  low 
power  settings,  the  test  without  pitch  pumping  showed  no  varia¬ 
tion  in  roll  angle  and  a  total  sideslip  variation  of  5.5  deg. 


When  pitch  pumping  was  included,  total  roll  angle  variation 
went  up  to  11.3  deg  and  total  sideslip  variation  to  6.1  deg. 

The  same  kind  of  results  occurred  at  the  higher  power  settings 
as  well.  Total  roll  angle  variation  without  pitch  pumping 
was  9.7  deg  compared  to  12.9  deg  with  pitch  pumping.  Total 
sideslip  variation  without  pitch  pumping  was  6.1  deg  while 
with  pitch  pumping,  it  was  6.5  deg.  These  results  were  due  to 
the  slow  speed  at  which  the  control  system  updated  the  gains 
and  the  fact  that  the  angle  of  attack  was  changing  at  rates  as 
high  as  20.8  deg/sec.  Regardless,  the  CAS  provided  adequate 
control  throughout  the  stall. 

One  problem  with  the  control  system  was  encountered  which 
makes  it  unusable  in  its  present  form.  The  aircraft’s  control 
surfaces  are  set  up  with  a  safety  feature  to  cutout  if  the  CAS 
commands  excessively  large  deflections  at  any  one  time.  This  was 
a  problem,  for  the  CAS  since  it  was  operating  in  a  very  unstable 
region  where  the  control  effects  were  sluggish.  Large  control 
surface  deflections  were  required  to  maintain  aircraft  control. 

In  the  case  of  several  test  runs,  numerous  attempts  were  needed 
to  get  one  "successful"  run  where  cutouts  did  not  occur  too  early. 

Several  possibilities  exist  for  why  this  problem  arose. 
First,  when  the  weighting  matrices  were  selected,  a  minimum  roll 
rate  response  was  considered  desirable.  However,  this  may  force 
the  CAS  to  correct  deviations  from  trim  too  fast  and  cause  ex¬ 
cessively  large  aileron  commands.  Another  possible  problem  is 
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that  of  sampling  time.  At  high  angles  of  attack,  the  aircraft 
is  very  unstable  in  the  roll-spiral  mode.  The  aircraft  can 
diverge  quite  rapidly,  as  was  demonstrated  in  the  first  set 
of  tests,  so  the  control  system  must  be  capable  of  reacting 
equally  as  fast.  The  CAS  would  have  to  make  up  for  a  slow 
sampling  time  by  using  large  control  surface  deflections. 
Finally,  the  safety  limits  on  the  aircraft  may  be  too  tight 
for  the  regime  in  which  the  control  system  was  tested  and  could 
be  widened  somewhat.  Thus,  the  solution  to  the  cutout  problem 
would  be  to  make  changes  in  all  three  potential  problem  areas 
--  slow  down  roll  rate  response,  increase  the  samples  per 
interval  of  time,  and  relax  the  control  surface  safety  limits 
on  the  aircraft. 

Another  answer  to  the  cutout  problem  might  be  low-pass 
filtering.  This  scheme  includes  not  only  control  surface  de¬ 
flection  into  the  gain  computation  process,  but  also  the  de¬ 
flection  rate.  The  deflection  rate  could  be  limited  to  an 
acceptable  level  where  the  control  surfaces  would  not  cutout. 

It  could  also  reduce  the  jerkiness  associated  with  large  con- 
tron  surface  deflections. 

Overall,  the  control  system  proved  to  be  a  success  in 
eliminating  the  aircraft's  instabilities  encountered  in  the 
stall  regime.  It  was  able  to  overcome  the  problems  of  sluggish 
control  response  and  slow  gain  updating  and  still  provide  ade¬ 
quate  control.  Control  surface  cutouts  did  detract  from  the 
performance  of  the  system  but  can  be  remedied  with  some  minor 
changes  in  the  gain  updating  scheme. 
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5.5 


ANALYSIS  OF  RESULTS 


To  summarize  the  results,  the  flight  tests  were  successful 
at  providing  an  understanding  of  the  aircraft  in  the  stall  regime 
and  how  to  eliminate  the  instabilities  encountered  there.  The 
airframe  tests  pointed  out  the  problems  of  stalled  flight 
while  the  pilot  tests  showed  how  difficult  it  was  for  the  pilot 
to  overcome  the  instabilities  experienced  in  the  stall.  The 
CAS  tests  proved  that  it  is  indeed  possible  to  eliminate  the 
instabilities  and  provide  safer  and  more  controlled  stall  flight 
characteristics . 

The  primary  purpose  of  the  airframe  tests  was  to  get  a 
better  understanding  of  how  the  aircraft  responds  in  the  stall 
regime.  Based  on  the  model,  the  roll-spiral  mode  was  found  to 
be  unstable,  which  would  point  to  a  divergent,  oscillatory  roll. 
This  was  found  to  be  the  case  in  the  actual  tests.  Higher 
power  setting  was  found  to  lessen  the  oscillatory  portion  of 
the  roll-spiral  instability  but  increase  the  speed  at  which  the 
divergences  occur.  Low  power  settings  caused  roll  rates  as 
high  as  12.9  and  16.2  deg/sec  for  cases  without  and  with  pitch 
pumping,  respectively,  while  at  higher  power  settings,  those 
same  maximum  roll  rates  became  35.5  and  44.4  deg/sec,  respectively. 

It  was  also  interesting  to  note  that  the  aircraft  always 
departed  controlled  flight  in  the  same  direction  due  to  the 
torque  effects  of  the  propeller.  In  this  case,  the  aircraft 


always  ended  up  rolling  toward  the  right  wing  and  flying  with 
negative  sideslip.  These  observations  point  to  problems  that 
both  the  pilot  and  control  system  had  to  overcome. 

Finally,  it  was  found  that  the  inclusion  of  pitch  pumping 
had  only  a  small  effect  on  the  stability  of  the  aircraft.  The 
more  interesting  effect  of  pitch  pumping  was  how  well  the  pilot 
and  CAS  were  able  to  handle  the  aircraft  when  pitch  pumping 
was  included. 

The  purpose  of  the  pilot  and  CAS  tests  was  to  determine 
how  well  the  control  system  was  able  to  help  the  pilot  control 
the  unstable  aircraft.  When  the  results  of  the  tests  were  com¬ 
pared,  the  CAS  did  provide  a  much  larger  degree  of  stability 
than  the  pilot  in  the  same  situation.  Marked  reductions  in 
the  total  variation  are  found  in  both  roll  angle  and  sideslip. 

In  the  case  of  low  power  setting  with  no  pitch  pumping, 
the  pilot  had  a  total  roll  angle  variation  of  8.1  deg  compared 
to  no  variation  for  the  control  system.  For  sideslip,  the 
pilot  allowed  8.1  deg  total  variation  while  the  CAS  allowed 
only  5.5  deg.  When  pitch  pumping  was  included,  the  pilot  had 
a  total  roll  angle  variation  of  34.7  deg  compared  to  only  11.3 
deg  for  the  CAS.  Total  pilot  sideslip  variations,  in  this  case, 
were  16.8  deg  compared  to  only  6.1  deg  for  the  control  system. 

The  comparisons  for  the  high  power  setting  are  even  more 
striking.  Without  pitch  pumping,  the  pilot  allowed  a  total  roll 
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angle  variation  of  36.3  deg  compared  with  only  9.7  deg  total 
variation  allowed  by  the  control  system.  Total  sideslip  varia¬ 
tion  for  the  pilot  was  22.0,  while  the  CAS  had  only  6.1  deg 
total  variation.  With  pitch  pumping,  the  pilot  had  total  roll 
angle  variation  of  78.2  deg  compared  with  12.9  deg  for  the 
CAS.  The  total  sideslip  variation  for  the  pilot  was  46.5  deg 
compared  to  6.5  deg  for  the  control  system.  Also  at  the  high 
power  settings,  the  pilot  results  showed  that  the  variations 
would  have  continued  to  increase  had  the  aircraft  not  been  re¬ 
covered,  while  the  control  system  results  show  no  such  tendency. 
It  was  readily  apparent,  then,  that  the  control  system  could 
be  an  invaluable  aid  to  the  pilot  in  controlling  an  otherwise 
unstable  aircraft. 

One  major  problem  was  discovered  with  the  control  system 
implementation  after  the  tests  had  been  run.  The  control  system 
was  designed  around  the  stability  axes  of  the  aircraft.  How¬ 
ever,  the  _rcraft  sensors,  from  which  the  aircraft  attitude 
was  measured  and  sent  to  the  computer,  are  mounted  on  the  air¬ 
craft  and  are  not  angle-of-attack  sensitive.  No  accomodations 
were  made  for  this  fact  within  the  control  system  software. 

Thus  the  control  system  utilized  stability-axis  software  with 
body-axis  inputs.  To  remedy  this  problem,  the  sensor  inputs 
should  be  transformed  to  stability  axes,  based  on  the  current 
angle  of  attack,  prior  to  the  computation  of  the  control  surface 
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In  addition,  there  were  some  minor  problems  noted  in 
the  actual  flight  tests.  In  particular,  the  cutout  problem 
previously  mentioned  needs  to  be  worked  out.  Some  jerkiness 


also  was  experienced  in  the  control  surface  actuations  due 
to  the  large  control  surface  deflections  and  the  relatively 
long  sampling  time.  One  last  problem  was  that  the  control 
system  had  some  trouble  keeping  up  with  a  rapidly  changing 
flight  condition.  It  is  possible  that  these  problems  may  be 
the  result  of  the  modelling  or  control  law  implementation 
errors.  They  may  also  point  to  some  fine  tuning  required  in 
the  control  law. 

It  should  be  pointed  out  that  regardless  of  the  errors 
encountered  in  this  project,  the  control  system  was  still  a 
success  and  did  accomplish  its  goal.  Overall,  the  flight  tests 
proved  that  it  is  possible  to  provide  stability  to  an  otherwise 
unstable  aircraft,  even  into  the  stall  regime.  Such  a  control 
system  could  provide  additional  safety  for  pilots,  particularly 
unskilled  pilots,  when  operating  in  the  regions  near  stall. 
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Chapter  VI 

CONCLUSIONS  AND  RECOMMENDATIONS 


The  study  of  aircraft  in  the  high-angle-of-attack  regime 
can  provide  great  rewards  in  terms  of  increasing  the  knowledge 
of  flight  and  subsequently  enhancing  aircraft  safety.  However, 
that  same  regime  many  challenging  problems  which  must  be  over¬ 
come  before  the  rewards  can  be  attained.  By  putting  together 
a  test  platform  to  investigate  the  different  aspects  of  stalled 
flight,  it  would  be  possible  to  overcome  the  problems  and  make 
important  steps  toward  improving  flight  safety. 

The  purpose  of  this  study  was  to  design  and  test  a  con¬ 
trol  system  to  eliminate  the  lateral-directional  disturbances 
from  the  longitudinal  mode  in  stalled  flight.  At  high  angles 
of  attack,  the  lateral-directional  mode  becomes  unstable  and 
difficult  for  even  an  experienced  pilot  to  overcome.  By  de¬ 
signing  a  control  system  to  provide  stability,  even  into  the 
stall  regime,  it  would  be  possible  to  isolate  the  longitudinal 
mode  and  take  steps  toward  improving  aircraft  safety. 

Perhaps  the  most  challenging  part  of  the  problem  was  that 
the  aircraft  could  be  stalled  at  an  infinite  number  of  flight 
conditions.  Designing  a  CAS  that  only  provided  control  for  one 
flight  condition  would  be  useless  at  best.  Therefore,  the  con¬ 
trol  system  was  designed  for  a  whole  range  of  flight  conditions 
where  the  gains  were  made  a  function  of  the  flight  condition. 


128 


Thus,  a  model  of  the  aircraft  had  to  be  computed  to  represent 
the  aircraft  at  any  flight  condition. 

The  model  was  assembled  using  wind  tunnel  data  for  the 
aircraft  found  in  NASA  TN  D- 5 7 5 8  .  For  those  terms  for  which 
data  were  not  available,  the  USAF  DATCOM  calculation  method 
was  used.  The  data  were  reduced  to  a  number  of  equations  where 
the  stability,  rotary,  and  control  derivatives  were  calculated 
from  the  current  flight  condition.  This  method  proved  to  be 
an  effective  one.  The  results  of  the  simulations  compare  well 
with  actual  results  of  airframe  flight  tests  as  explained  in 
Chapter  5_.  The  model  then  was  used  to  derive  control  gains  for 
the  CAS . 

The  CAS  was  designed  as  a  sampled-data ,  linear-quadratic 
controller.  A  number  of  sample  flight  conditions  were  chosen 
for  which  suitable  control  gains  were  calculated.  Simulations 
showed  satisfactory  control  of  the  aircraft  at  each  of  the 
sample  flight  conditions.  The  gains  then  were  scheduled  as 
functions  of  the  flight  condition.  These  scheduled  gains  were 
then  tested  in  simulation  and  were  also  found  to  provide  adequate 
control  for  each  flight  condition  provided  that  a  minimum  cor¬ 
relation  was  maintained  between  the  actual  gains  and  the 
scheduled  gains. 

Finally,  operational  control  system  software  was  formulated 
for  the  purpose  of  flight  tests.  The  flight  tests  were  broken 


down  into  three  parts.  The  first  was  a  test  of  the  basic  air¬ 
frame  to  get  a  better  understanding  of  the  lateral-directional 
mode  in  a  stall.  The  results  of  the  tests  pointed  out  the 
instabilities  that  the  pilot  and  CAS  were  required  to  overcome. 
The  results  also  verified  the  model  since  the  aircraft  reacted 
as  predicted  from  simulation  results. 

The  second  part  of  the  flight  tests  included  pilot  tests 
to  see  how  well  the  pilot  could  handle  the  instabilities  in 
a  stall.  The  results  were  also  used  as  a  baseline  for  compari¬ 
son  with  the  CAS  results.  The  tests  showed  that  the  pilot  could 
maintain  some  control  at  lower  power  settings  but  that  the  con¬ 
trol  was  lost  at  higher  power  settings. 

The  final  part  of  the  flight  tests  was  the  test  of  the 
CAS  during  a  stall.  The  results  show  that  the  control  system 
was  able  to  maintain  stability  well  into  the  stall  regime. 
Deviations  from  trim  were  present  but  were  not  near  the  magnitude 
of  those  encountered  with  the  pilot  in  control.  Therefore,  the 
study  was  a  success  at  proving  that  it  is  indeed  possible  to 
provide  stability  for  an  otherwise  unstable  aircraft,  even  into 
the  stall  regime.  The  ramifications  for  this  type  of  CAS  point 
to  improved  aircraft  safety,  especially  for  unskilled  pilots, 
not  only  in  the  high-angle-of-attack  and  stall  regimes,  but  also 
throughout  the  whole  range  of  flight  conditions  the  aircraft 
may  encounter. 
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In  reexamining  the  project,  errors  were  found  in  the 
modelling  and  control  law  implementation.  In  particular,  the 
angle-of-attack  effects  on  the  inertia  matrix  and  the  vertical 
component  of  velocity  were  neglected  and  resulted  in  an 
erroneous  model.  This,  in  turn,  affected  the  computation  of 
the  control  gains.  In  addition,  no  provision  was  made  for 
converting  raw  sensor  data  to  the  stability-axis  system  in  the 
computer  software.  These  problems  would  have  to  be  remedied 
before  the  control  system  could  be  used  effectively.  It  should 
be  noted,  however,  that  even  with  these  errors,  the  control 
system  did  accomplish  its  goal  of  stabilizing  the  aircraft  in 
a  stall. 

Further  work  is  needed  to  make  some  improvements  in  the 
control  system  to  make  it  more  workable.  In  particular,  a 
more  efficient  gain  scheduling  scheme  would  be  desirable  to 
reduce  the  size  of  the  gain  matrices  while  retaining  the  needed 
accuracy.  This,  in  turn,  would  allow  a  reduction  in  the  sampling 
time  with  several  added  benefits:  elimination  of  cutouts,  smooth¬ 
ing  of  the  jerkiness,  and  better  response  during  rapid  changes 
in  the  flight  condition.  A  look  into  the  area  of  proportional 
filtering  might  also  eliminate  large  control  surface  deflections 
and  their  associated  problems. 

In  conclusion,  then,  this  study  has  shown  that  it  is  in¬ 
deed  possible  to  improve  lateral-directional  stability  into  the 
stall  regime  of  the  aircraft.  Such  a  find  promises  to  enhance 
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the  study  of  high-angle-of-attack  flight.  It  also  provides  a 
starting  point  for  the  design  of  safety  systems  into  the  air¬ 
craft  to  help  eliminate  instabilities  experienced  during  high- 
angle-of-attack  flight. 
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Appendix  A 

AVIONICS  RESEARCH  AIRCRAFT 

A . 1  DESCRIPTION  OF  THE  AIRCRAFT 

The  aircraft  used  in  this  study  is  the  Avionics  Research 
Aircraft  (ARA) ,  a  modified  Navion.  The  ARA  is  capable  of  three 
modes  of  control  —  direct,  analog,  and  digital  —  which  can 
operate  simultaneously  for  a  particular  application.  In  addi¬ 
tion,  the  aircraft  has  been  equipped  with  inertial,  air  data, 
and  navigation  sensors.  The  aircraft  has  been  used  in  stall- 
spin  research  as  well  as  control  system  design. 

The  sensors  which  are  available  for  telemetry  and  control 
system  usage  include  angular  rate  gyros  and  linear  acceler¬ 
ometers  for  all  three  axes,  angle-of-attack  and  sideslip  vanes, 
an  airspeed  sensor,  and  control  position  indicators.  In  addi¬ 
tion,  barometric  altitude,  airspeed,  air  temperature,  and  engine 
manifold  pressure  also  are  available  to  the  pilot. 

The  aircraft  is  flown  with  two  pilots  for  reasons  of 
flight  test  efficiency  and  safety.  The  evaluation  pilot  sits 
in  the  left  seat  which  is  set  up  for  fly-by-wire  control  system 
operation  for  both  digital  and  analog  applications.  For  analog 
control  systems,  pilot  inputs  are  routed  through  potentiometers 
to  the  control  surfaces.  The  potentiometers  are  located  on  the 
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display  panel  and  can  be  adjusted  in  flight  to  vary  the  air¬ 
craft's  handling  characteristics.  For  digital  control  systems, 
a  microprocessor  is  used.  The  computer  itself  is  located  be¬ 
hind  the  right  seat  and  is  interfaced  with  the  pilot  through 
the  hand-held  CDU.  The  safety  pilot  sits  in  the  right  seat 
and  has  direct  control  over  the  control  surfaces  through  the 
use  of  mechanical  linkages. 

A. 2  AIRCRAFT  DATA 

A  Navion  airframe  was  tested  extensively  in  the  30'  x  60' 
full-scale  wind  tunnel  at  the  NASA  Research  Center,  Hampton, 
Virginia  and  the  result:  of  those  tests  were  compiled  in  the 
report,  NASA  TN  D-5857 .  The  availability  of  the  data  simplified 
the  model  development  process.  To  use  it,  the  data  were  reduced 
to  a  set  of  tables  of  data  points  from  the  nondimensional  co¬ 
efficient  curves.  The  tables  are  presented  here  and  are  arranged 
as  follows:  Table  8,  constant  component  data;  Table  9,  stability 
derivative  component  data;  Table  10,  longitudinal  coefficient 
data;  Table  11,  rudder  derivative  component  data;  and  Table  12, 
aileron  derivative  component  data. 

In  addition,  a  number  of  aircraft  constants  were  required 
for  the  rotary  derivative  component  development.  Those  constants 
are  presented  in  Table  13. 
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TABLE  L 


Constant  Component  Lata 


a  ac 

0.03 

0.12 

0.23 

-4.C 

0 .  CO  1 

0. 002 

0.007 

c.  c 

0 . 0 

c.o 

0.0 

4 .  C 

G.C 

-.004 

-.007 

B.O 

-.002 

-.00  b 

-.010 

12.  C 

-.00  5 

-.015 

-.020 

10.0 

-.015 

-.025 

-.044 

20.  t 

-.OIL 

-.040 

-.005 

24.  C 

-.020 

-.04  5 

-.050 

C 

y 

a  'c 

C.  03 

0.12 

0.23 

-4  .  C 

0.0010 

0  .  C 

-.0040 

C  .  0 

0.0005 

-.0015 

-.0000 

4.  C 

-.0005 

-.0030 

-.COLO 

fc.O 

-.0010 

-.0035 

-.0050 

12. C 

-.  0015 

-.0020 

-.0050 

10  .  t 

0.0020 

0 . 0 

-.0050 

20 . 0 

0 .0050 

0 .0015 

0.0030 

24  .  C 

0  .  0  C  2  0 

0.0070 

0.0100 

C 

n 

a  V 

0.03 

C.  12 

0.23 

-4 . 0 

0  .  one 

C. 0050 

0. 0020 

0 . 0 

0 . 0050 

0  .  COO  5 

C . 0000 

4  .  C 

0.0050 

0 .0055 

C . 0040 

fc.C 

0.0100 

0 . 0050 

0.0020 

12.0 

0.0070 

0. 00 50 

0.0025 

10.  C 

-.0030 

0. OOjC 

0 . 0030 

20 . 0 

0.0050 

0.0065 

-.0025 

24 . 0 

0 . 0120 

0.0020 

0.0100 

C1 
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TABLE  5 


1 

i 

I 


Stability  Derivative 


Component 


Data 


( throttle 

setting  = 

0.03) 

E 

C 

-15  .  C 

-1C .  C 

-5.C 

C.  0 

5.0 

10.0 

15.  t 

-4  .C 

C  .  16  2 

C.  134 

C.C7  5 

C.  001 

-.066 

-.146 

-.210 

C.  C 

C  .177 

C.131 

0.065 

C.C 

-.070 

-.145 

-.200 

4  .  C 

C  .  1 7  0 

C  .  1 1  c 

C.  062 

0.0 

-.066 

-.142 

-.202 

6 .  C 

t  .  ICC 

C.1CC 

0.055 

-.002 

-.000 

-.135 

-.167 

12  .  C 

C.  143 

0.065 

0.044 

-.005 

-.050 

-.110 

-.165 

It  .  t 

C.121 

0  .  C  7  5 

0 . 030 

-.016 

-.063 

-.104 

-.171 

2C  .  C 

C  .  1C2 

C.C5C 

0.010 

-.016 

-.054 

-.067 

-.165 

24  .  C 

C  .  06  4 

0  .  C  5  0 

0.005 

-.020 

-.050 

-.067 

-  .  130 

c 

\1 

L 

a 

-15.C 

-10.0 

-5.0 

0.0 

5.0 

10.0 

15.0 

-4  .  C 

-.0275 

-.0210 

-.0120 

0.0010 

0.0135 

0 . 0265 

0 . 0305 

0  .  t 

-.  0200 

-.0200 

-.0115 

0.0005 

C. 0130 

0.0220 

0.0325 

4  .  C 

-.0250 

-.0160 

-.0110 

-.0005 

0.0105 

0.0175 

0.0260 

6  .  C 

-.0230 

-.0160 

-.0105 

- . 001 C 

0.007  5 

0 . 0140 

0.0  27  5 

12  .  C 

-.0210 

-.0135 

-.0065 

-.0015 

C . 0030 

0.0120 

0.0220 

10  .  C 

-.0105 

-.0110 

-.0065 

C . 0020 

0 • 004  0 

0.0120 

C  .  0165 

2  C  .  C 

-.0165 

-.0060 

-.0010 

0.C05C 

0.0105 

0.0135 

0. 0240 

24  .  C 

-. 02j5 

-.0150 

-.0020 

0 . 0020 

C 

0 .0100 

0 . 0105 

0.0100 

L 

o 

-15.0 

-1C  .  0 

-5 . 0 

0 . 0 

5.0 

10.0 

15.0 

-4 . 0 

0 . 0 j30 

0.C26C 

0.0210 

0.0110 

-.0050 

-.0110 

-.0170 

0 . 0 

0.0230 

0 .0240 

0.0160 

0. 009 C 

-.0025 

-  .0060 

-.0120 

4 . 0 

0 . 0  2  7  C 

0 .0225 

0.0170 

0 . COSO 

-.0040 

-.0100 

-.0115 

6  .  C 

0 . 0/^0 

0 .0220 

O.CIOO 

0.0100 

-.  0070 

-.0140 

-.0150 

12.0 

C . 0250 

0 . 0230 

0.0150 

0.0070 

-.0120 

-.0200 

-.0215 

16.0 

0.0300 

0 . 0160 

0  .  C  1 4  C 

-.0030 

-.017  5 

- . 0260 

-.0290 

20 . 0 

0 .0440 

0.0370 

0.0320 

0 . 0090 

-.0055 

-.  0275 

-.0225 

24 . 0 

0.0500 

0.0430 

0.0200 

C .0120 

-.0060 

-.0320 

- . 0  oCO 

C 
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Table  9 


continued 


( throttle 

setting  = 

0.23  ) 

.  B 

C 3 

-15. C 

-10.  C 

-5  .  C 

C  .  C 

5 .  G 

1C  .  C 

15. G 

-A  .  C 

C.  24  3 

0.  lbC 

G.  1GG 

G.  GGb 

-.  GfcG 

-.  ICC 

-.237 

c .  c 

0 . 230 

C.  ltb 

G.G95 

G.  G 

- .  C5G 

-.10  7 

-  .  240 

A  .  t 

C.213 

C.  155 

G  .  Gb2 

-.GGb 

-.095 

-.175 

- .  252 

b.  C 

C.  157 

C.  14  2 

G  .  GGb 

-.Git 

-.  1G4 

-.  185 

-.250 

12.  C 

C.  lfcC 

G  .  1 2  7 

G  .  C5- 

-.025 

-  .  1G4 

-.150 

-.257 

10. C 

C  .  15b 

G  .  1 G  4 

C  .  C  3  7 

-  .  G4 3 

- .  G9C 

-.102 

-.  25G 

20  .  C 

t .  133 

G .  C  7  0 

G .  GG5 

- .  Gt  5 

-.  11G 

-.15b 

-.221 

2  A  .  C 

C.C95 

G .  GG4 

C5G 

- .  1GG 

-.1Gb 

-.128 

-.220 

C 

y 

.  L 

C. 

-15  .  C 

-1G  .  G 

-5.C 

G.G 

5 .  C 

1C  .  G 

15.  G 

-A  .  C 

C32C 

--C25C 

-  .  G 1 5  G 

- . GC4G 

G.  G1GG 

C . 02 CC 

G . G33G 

c .  c 

- . C3  2C 

- . G2  7  5 

- .  C2G5 

- . GGCC 

G . CC  75 

G . Cl  50 

G . G3G  5 

4  .  c 

-  .  C  3  2  C 

-  .  C  2  fc  G 

-  .0220 

-  .  G  G  7  5 

G.GG55 

C .0175 

C .0205 

b  .  C 

- . C315 

- . C27C 

-. 02^5 

- . GG9G 

G  .  GG35 

G.G10G 

G . G205 

12.  G 

- . C25 5 

-  .  C2<*C 

C24C 

- . CG5C 

G  .  C  G  1  5 

G  .  G  Jl4  C 

G . G25G 

It  .  C 

C2CC 

- . C  2GC 

-  .  C  2  2  G 

-. GG5G 

G  .  G 

G.G1G5 

G . G24G 

2  C  .  C 

-.0215 

-  .  C  1  3  C 

-.Gilt 

C . GG2G 

C  .  GG4G 

C . G14C 

G . 0225 

24  .  C 

-.CitC 

-  .  C  C  1  5 

G . GGLt 

G.G14G 

G 

r't 

G.  G1G5 

G .GibC 

G  .  C  2  a  5 

n 


.  L 

C. 

-15.  G 

-1G  .  G 

-5.G 

G  .  G 

5  .  G 

1G  .  G 

15  .  G 

-4  .  C 

G  .  G  30  5 

G . G  2  50 

G . G20G 

G. GG2G 

-. G13G 

- . G13G 

-  .  G  1  7  C 

G  .  G 

G  .  G  3  3  G 

G . G205 

G  .0215 

G. CGGG 

-. C1GG 

-. G12G 

—  .  G  1  3  G 

4  .  G 

C . G20G 

G . G23G 

C . Cl  7  5 

C . CG4  C 

-. GG05 

-.0115 

-. G13G 

b  .  G 

G . G24  5 

G.G15G 

C . G13G 

G  .  GG2G 

- . CCOG 

-. C13C 

-.cite 

12  .  G 

G  .  G  2  2  G 

G  .  G  1  7  G 

C . GG85 

G. 0025 

-.0055 

-.  G10G 

-  .  C  2  C  C 

10  .  G 

0 . G20G 

G . G155 

G.G12G 

G . GG3G 

-  .  G  1 4G 

-.  G2j5 

- . C24C 

20  .  G 

G . G35G 

0. G22G 

G.G145 

-.0025 

-  .  G  2 1 G 

-. G24G 

-. G35G 

24  .  C 

G . G4GG 

G . 0285 

G  .  G  2  2  C 

G . GCGC 

-. G25C 

-. G10G 

- . G  24G 
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TABLE  10 


1 


Longitudinal  Coefficient  Data 


1 

a  C 

0 . 03 

0.12 

0.23 

-A  .  0 

-.  lbC 

-.  lbO 

-.140 

c.  c 

C  .  140 

C  .  150 

0.210 

4  .  0 

0.455 

C  .  4b0 

0.550 

£ .  C 

C.  750 

C.fcCC 

C .  £95 

12  .  C 

1 . 040 

1 .120 

1.240 

It.  C 

1 . 270 

1 . 305 

1 . 525 

2C  .  t 

1  .  3C0 

1  .  500 

1 . 550 

2^. .  C 

1.370 

1 . 5b0 

1 .020 

a  \ 

0  .03 

0 .12 

0 . 2j 

-4  .  C 

0 .015 

-.070 

-.150 

0 . 0 

0  .  020 

-.005 

-.150 

4 . 0 

0.025 

-  .  000 

-.  ito 

£  .  0 

0 .040 

-.040 

-.100 

12  .  C 

0.070 

0.  t 

-.115 

It .  C 

0.150 

0.C55 

-  .  000 

20  .  0 

0.270 

0.140 

0.075 

24  .  C 

0 . 375 

0 . 420 

C.  2£0 
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TABLE  11 


Rudder  Derivative  Component  Data 


(throttle  setting  =  0.C3) 


,  dF. 

C 

-17.5 

-9.C 

C.C 

7.C 

13.2 

-4  .  C 

- .  C5C 

- .  C2C 

0.CC2 

C.Clfc 

0.  C44 

O.C 

-.  Cb4 

C2L 

O.C 

C.  CIO 

C.  CbC 

4.  C 

Cbb 

-  .  C24 

-.  COb 

C.C14 

C.CbC 

k  .  C 

-.COl 

-.027 

-.COG 

C.  Cll 

C  .  C47 

12.  C 

-  .  Ct  3 

-.031 

-.CCC 

C  .  COb 

C.C4C 

1C  .  c 

-.Lit 

-  •  C  30 

-  .  Cl  7 

0.CC3 

C  .  C3C 

2b.  C 

-  .  C  7  7 

-.CbC 

-.  Clb 

-.004 

0.  Clb 

24  .  C 

-.COL 

- .  C2fc 

-  .Clb 

0.GC2 

0.C47 

.  d  1 

d 

-1  7  .  b 

-S  .  c 

C.C 

7.  C 

13.1 

-4  .  C 

0.  C2bC 

C . Cl  3  0 

C . CC1C 

-.COCO 

-. C21C 

C.C 

C  .  C  3  C  C 

C. C12b 

C.C 

-.CObC 

-. C2bb 

4  .  C 

C.C  31b 

C  .  C12b 

- . cccs 

-. CGSb 

- . C2LC 

b  .  C 

C  .  C  3  2C 

C . C13C 

-.CC1C 

-.C1LC 

-.CISC 

12. C 

c .  C^CC 

0  .  C 1 4  b 

-.CCIC 

-. CCbL 

- . C  2bC 

10. C 

C . CISC 

C.U4C 

C . CC2C 

-. COOC 

-  .  C2CC 

2C.C 

C  .  C  3  bC 

C . C1SS 

C.CObb 

-.COIL 

- . C 1 3C 

4  •  C 

C  .  CISC 

C  .  CC9C 

0. CCib 

-.COOC 

-. ClbC 

C 

n 


dF 

Cl 

-1  7  .  S 

-9.  C 

C.C 

7  .  C 

1  0 . 4. 

-4.  C 

C.  CCIC 

C.  CC7C 

0.  C11C 

C . C  CbC 

C.Cllb 

C  .  C 

C  .  COOb 

O.C 040 

C . CObb 

C.Cllb 

C .  Cl<.b 

4  .  C 

C  .COOL 

C  .  CC  7  b 

C  .  CCbb 

C  .  C13b 

0. Clbb 

b.  C 

C.  C1CC 

C  .  CObC 

0. C10C 

0 . CObC 

C  .  C  1 3  C 

12. C 

C . CC2C 

0. COOb 

0. CC7b 

C. CCbC 

C. COOC 

10. C 

C  .  CC3b 

0.  CC4C' 

- . 003 b 

-.CCib 

-.  cc<«c 

2C  .  C 

C  .  C  1  7  b 

C.CCbC 

0  .  C09C 

0. CObC 

C.CC4b 

24  .  C 

C  .  C 1  S  b 

C  .  C  1  2  0 

C.Cllb 

C  .C13b 

C.CG-b 
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Table  11 


continued 


(throttle  setting  =  0.23) 


.  df 

o 

-17.5 

-9.C 

0.  C 

7 . 0 

13.2 

-4.0 

- .  00  3 

- .  Olt 

c.  ooc 

C  •  0  fit  O 

0.070 

0.  C 

-.084 

-.033 

C.  0 

0.  C27 

0.061 

4  .  C 

-.100 

-.040 

-.008 

0.020 

0.053 

8.  C 

-.113 

-.058 

-.018 

0.011 

0.050 

12 . 0 

-.120 

- .  068 

-  .  030 

0 .  OCo 

0.046 

10  .  C 

-.  140 

-.074 

-.044 

0.003 

0.044 

20.0 

-.130 

-.100 

-.065 

-.031 

0.015 

24 . 0 

-.140 

-.080 

-.090 

C 

y 

-.080 

-.080 

df. 

o 

-17.5 

-5 . 0 

0.0 

7.0 

13.2 

-4 . 0 

0.0303 

0.0115 

-  .  0040 

-.0160 

-.0375 

C.  C 

0 .0400 

0.0110 

-.0000 

-.0210 

— . 04  ^0 

4 . 0 

0.0425 

0.0115 

-.0070 

-.0230 

-.0470 

8.  C 

0.0445 

0.0120 

-.0080 

-.0250 

- . 050C 

12. C 

0 . 0440 

0.0130 

-.0080 

-.0255 

-.0505 

10.0 

0.0473 

0.0100 

-.0055 

-.0200 

-.0485 

20.0 

0 . 0420 

0.0230 

0.0040 

-.0150 

-.0370 

24 . 0 

0 . 035  5 

0.0170 

0.0100 

Cn 

0 . 0025 

-.0170 

d8 

Cl 

-17.5 

-5.0 

n 

0.0 

7  .  C 

1  .  i. 

-4 . 0 

-.0040 

C  .  0020 

0 . 0020 

C  .  0125 

0.0230 

0.0 

- . 0010 

-.0010 

0  .  COCO 

C.  0090 

0.0150 

4 . 0 

0 . 0 

-.0015 

0.0035 

0.0050 

0.0180 

8.0 

0 .0020 

0.0 

0. C02C 

0. 0055 

0.0140 

12.0 

O.OC55 

0 . 000  5 

0.0010 

0. 0060 

0.0070 

10.0 

0.0085 

0.0075 

0 . 0020 

0.0015 

-.0030 

20.0 

0.0140 

0. CC1C 

-.0025 

-.0015 

-.0055 

24 . 0 

0.0035 

C. 0085 

0.0085 

-.  0030 

-.0060 
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1 ABLE  12 


Aileron  Derivetive  Component  Lata 


.  dA 

O 

-42  .  C 

-21.  C 

-4  .  C 

C.C1S 

0 .  CJL  2 

0.  C 

C.C12 

C  .  C1C 

4  .  C 

C.C1C 

C.C1C 

£  .  C 

0.  CCfc 

C  .  tot 

12.  C 

C  .  CC7, 

- .  CC  7 

C.  tit 

It  .  C 

c.  t 

2C  .  t 

C.CC5 

-.Clt 

24  .  t 

-  .  CIS 

-.CIS 

d  A 
a 

-^2.  t 

-21  -C 

-4  .  C 

c . test 

t.ttlt 

C  .  C 

C.CC1C 

L  .  t 

4  .  C 

-  .  CC2S 

-. test 

fc  .  C 

-.tecs 

-.CCCC 

12  .  C 

-  .  C  1 1  c 

-.CISC 

It  .  t 

- .  c  c  s-  s 

-.cue 

2C  .  ( 

- .  tiss 

-. CC2C 

2s  .  C 

-.C1LC 

-. tetc 

at. 

Ci 

-4  2  .C 

-21  .t 

-4  .  C 

t  .  tttt 

C  .  C4CC 

C  .  t 

C  .  CSSS 

C .  C39C 

4  .  C 

C  .  tt4S 

C  .  CSfcS 

k.  C 

t  .  CC4S 

C  .  C  4 1.  S 

12  .  C 

C  .  1 1 2  C 

C . C32t 

It  .  C 

C  .  CS7L 

C. C32C 

2  C  .  t 

t  .  C73C 

c.ou 

24  .  t 

C  .  CC2C 

C. CS4C 

c .  c 

21  .C 

42. C 

C.  CCS 

C.C 

-.  C1C 

c .  t 

- .  CC2 

-.C1C 

C  .  c 

-.CCS 

-.  Cll 

-.CCS 

-.  C1C 

-.CIS 

- .  CCb 

-.CIS 

-.  C24 

-.CIS 

-.  C27 

-  .  C4C 

-.  Clfc 

-  .  C22 

-.CSS 

-.CIS 

- .  C22 

C  .  C2C 

y 

c.  c 

21  .  t 

42  .  C 

C.  CC1C 

C.C 

- . CC2C 

c .  c 

C.C1CC 

C  .  C 

c .  t 

c-.ccis 

C . CC  2  S 

-.tees 

c . ccsc 

C . cess 

-. CC1C 

c . ccts 

c .  ties 

C . CC  2  C 

c.  cue 

C . C2CC 

t .  ccsc 

C.C145 

C . C2CS 

C  .  C  C  2C 

C.C1SC 

C  .  CISC 

n 

c.c 

21  .  C 

42  .  C 

C.C1CS 

-  C 1  7C 

-. C4SC 

c. ccsc 

-.CISC 

-  .  C  4  7  C 

c. ticc 

-  .  C 1 4  C 

- .  C4t  t 

C . C1CC 

- . CiSC 

- . C4LC 

C . CC7t 

-.cite 

-.CS1S 

-.cose 

-  .  C  2  9  C 

-.CtCS 

t .C1CC 

-  .  C  1 2  C 

-.CSSS 

C .  C 1 5  ( 

-.  CC9C 

- .  C2CC 
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TABLE  13 


Aircraft  Constants 


Aspect  Katio 

Area 

Span 

Chord 

Centerline  distance 
fron:  c  .g  . 

Taper  Katie 
Cihed  ra 1 

Sweep  (at  quarter  chord) 


King  Data 


w 

Aw 

Tv 


D.  C4 

1S4  feet" 
j ^  *  jb  feet 
5 . 7  feet 


1  f  oct 
C.  54 
7 . 5C 
5  .  GC 


horizontal  Tail  Lata 


Aspect  Katie 

Area 

Spc-r. 

Chord 

Centerline  distance 
f  r  cn.  c  .  c  . 

Taper  ratio 

Ewtej  (at  quarter  chord) 


4  .  C 

43  feet'" 
13.11  feet 
3 . 2fc  i eet 

C  .  C  feet 


Vertical  Tail  Data 


Asj e  c  t 

Katie 

/.R 

V 

c 

2  .  C 

Area 

12.5  feet" 

Span 

< 

cv 

y  v 

5  .  C  feet 

Chord 

3.52  feet 

Taper 

Sweep 

Ka  t  io 

(at  quarter  chord) 

C  .  55  7 

2t  .  tc 
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Table  13 


continued 


Mass  and  Inertia  Lata 


Gross 

Weight 

IT'. 

2940  lbs. 

Centex 

of 

Gravity 

(c 

•  g  • ) 

x/ C 

ix  " 

0.25 

Moment 

o  f 

Inert ia 

l  x 

axis) 

1204.1 

slug-ftf 

Moment 

of 

Inertia 

ty 

axis) 

V7 

2772.9 

si ug- f t  f 

Moment 

of 

Inertia 

( Z 

axis) 

3234 . 7 

slug-ft^ 

Miscellaneous  Lata 

Distance  from  Mon.ent 
tc  Vertical  Tail  c  .p  . 

Center 

z 

2.07  feet 

(normal  tc  body  ) 

p 

Listance  from  foment 
tc  Vertical  Tail  c.p. 

Center 

Ip 

17.25  feet 

(parallel  to  body  £.) 

F 

Listanct  cf  Vertical 

Tail 

Utter  cf  Pressure 

z 

z  *ccs( a )  + 1  *  sin ( a 

Abet  e  cr  Lelcv  Portent 

Center 

P  F 

Appendix  £ 

GAIN  COMPUTATION  SOFTWARE 

The  gain  computations  vert  done  by  coding,  in  FORTRAN,  the 
model  end  control  lav  development  steps  into  the  program,  CONTRL. 
CONTRL  had  the  following  capabilities:  compute  the  linearized 
system  equations  giver,  the  flight  condition;  compute  the  optimal 
gains  given  a  set  of  state  control  weightings;  compute  the 
equivalent  closed-loop  system  equations;  and  perform  a  linear 
and/Gi  nonlinear  simulation.  A  flow  chart  of  CONTRL  is  presented 
ir.  Iigure  la  . 

in  addition,  a  number  of  subroutines  were  included  in  the  main 
program  tc  perform  intermediate  tasks.  LDDYN  computed  the 
1  a  t  e  ra  1  -d  i  r  e  c  t  icr.a  1  dynamic  equations  given  the  flight  condition 
arid  the  current  value  of  the  states  and  controls.  FANDG  confuted 
the  linearized  system  and  output  matrices  given  the  flight 
condition  and  the  trim  values  of  the  states  and  controls.  STK 
confuted  the  state  transition  matrix  given  the  sample  time  and 
the  system  dynamic  matrix.  CEM  computed  the  control  effects 

I 

matrix  civer.  the  state  transition  matrix  end  the  system  matrices. 
CLOOPl  computed  the  equivalent  closexl-loop  system  dynamics  matrix 
given  the  closed-loop  state  transition  matrix.  RKINT  performed  a 
nonlinear  simulation  using  a  4-th  order  Funga-Kutto  integiatior. 
given  the  flight  condition,  the  control  gain  matrices,  and  the 
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t 


initial  condition.  Table  14  presents  a  listing  of  each  of  these 
subroutines  as  veil  as  the  main  program,  CONTRJL. 


*4 
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Figure  25:  Gain  Computation  Flowchart 
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'J  &  xr  u>  rj 


PILE: 


Table  14.  Gain  Computation  Listing 


CC'NTFL  FORTRAN’  A 


PF.INCETGN  UN3VEP3  IT  Y  TI  ML-  SH  A R I NG  SYSTEM 


1 

2 

1 

4 

5 

e 

7 

a 


DI  ME  NS  I  ON’  WFF  (4)  ,  PHI  (4  .  4)  ,  F  (  4.  4)  ,  FCO  FY  (  4.  4  )  ,  OC  (4 , 4)  ,  FI  N  V  (4 , 4 )  . 

G  (4,2)  ,  GAMMA  (4 ,2)  .  HX  (2,4)  ,H9  (2.2)  ,RC  (2,2)  #APEAP(3.3)  . 

XO  (4)  ,U  (2)  .TEMPI  (4.4)  .TEMP  2  (2,4)  .TEMP3  (2.2)  .TEMP4  (4.2)  . 
Ti.M?5(4,4)  ,MHAT  (4,2)  .MHATOT  (4,2)  ,  OHAT  (4 , 4  )  ,  OH  ATOT  ( 4,  4)  , 
0  (4,4)  ,  SHAT  (2,  2)  ,  RIIATOT  (2,  2)  ,  R(2. 2)  .  0TNOW(4,4)  . 

J1TSCW  (4, 2)  ,ETNCW  (2,2)  ,SINV  (5,5)  ,S  (5.5)  .AREAS  (4.4)  . 

PHIT  (4,4)  ,  SA  MMAT  (2 , 4)  ,MHATT(2,4)  ,FHITEM(4.4)  , 

G  A  MT  EM  ( *♦  .  2 )  ,  PK  (4,4)  , PKMNS  1  (4,4)  ,  APEAP  (  1 .  1 )  .  XT  1  (4)  . 

C  (2, 4)  ,31 1  (3,3)  ,S12 (3,2)  ,S21 (2. 3) , S22 (2,2)  ,C1 (2,3)  . 

C2  (2.1)  ,CF  (2.2)  ,CB(2,4)  ,F1  (3,3)  ,F12(3,  1)  ,P2  (1,  1) 
DIMENSION  F2  1  (1,  3)  ,G1  (3,2)  ,G2  (1 ,2)  ,TEMP6  (2.1)  ,CS  (2,  1)  , 

TEMP7  (1, 2)  .TFMP3  (1,2)  ,CI  (2,2)  .PHICL  (4,4)  ,PCL  (4,4)  . 

PY  (2, 1)  ,  DYT  (2.  1  )  ,X  (4,1)  ,'J2  (2, 1)  ,  TEMP  10  (4,  1)  . 

TEMPI  1  (2.  1)  ,  FCLCFY  (4,4)  ,XGl’T  (4)  ,  U  2  0  0  T  (2)  ,  TEMP  12  (1,1). 
XlSTAT  (3,1)  ,11  STAR  (2,1)  .  XTSTAR  (5,1)  .COMVLC  (5.1), 

X  23T  A  P  (1,1)  .  TEMP9  ( 1,  1)  ,  PC HECK  (4,  4)  ,  I  DEN  (4 ,4  )  , 

KY  (1,2)  ,5X1  (3.1)  ,  TEN?  13  (3 ,  1 )  ,S*  Y  j  3 .2 )  ,S'J  Y  ( 2.  2)  , 
i  XI  (2,3)  ,HT2(2,  1)  ,  SHI  (2.  1)  ,  FC (  8,  1)  ,  A 1  (7, 4)  ,  A2  1  ( 7, 9)  , 

C?  tEDI  (7, 1)  ,CFEFD2(7,  1)  .PCI  (9,  1)  ,PC2  (18,  1)  ,A22(7,9)  . 

TI  (4,4)  ,T2  (4,4)  ,T3  (4,4)  ,CTRIM{3,3)  ,CVEC  (3  ,  1)  , APE  ACT  (2.2) 
DIMENSION  XI  (4)  ,UT  (4)  ,  A 2  (7,  19) 

REAL  IDEN 

COMPLEX  WI  I  GEN  (4)  ,  ZTIGEN  (4, 4) 

REAL  I N  ?  VL 

COMMCV/CYCC- E/CY.CYO ,r YO , CYD R , C YD A , C YP, CY R 
COM  10  L/C NC Or  F//V,  CNO,  CN3, CNDK.CNDA, CNP.CNR 
CpMMCN/CI,COEr/CL,CLC,CL3,CLDP,CLDA,CIP,  CLP 
DATA  M/ 1.7  9,.  7  2  97, 2.  155,  7. 8  8  9,  3.  25  4, -3. 59  5,.  5348, -.  06  7  04, 

o; i: 5, I"  52,  3227,-.  06524, .  1556, 006276. .8409 E- 3,.  2326 L- 3, 

.  0  71  -9,  .  9  1^372,.  9C5L-3,  0C2l4t>,-.  7  J39E-4,-.  00  70t2,-.  0259  1. 

91 19.’,.  3„r.7?3,  J24  8*  ,.  00934  5,-.  1531  ,-.2718E-3,.  8608E-3. 

.  c  RO::--  3, .  «32E-  3.  -  .  0  *1494,-.  6244E-3,.  394  123..5793  2-5,-.  1  064E-4, 


2  74  £-4,.  968  7L -5  ,-.  4  76  5L-4..00  15  74  ,  .  70  7  >3E- 3. 


??7-  -  -  5 ,  -  .  7 » 

.  r  0  C-*  IOC  .  o:  1C-56,.000r5  36,  .  003235.-.2C29E-4,  -.3058E-4. 

-.7«-7  1:-4,.301  )  5-4,.  1237  E- 3, -.51 57  E- 5,-.  1  4eE-  3, .  57  43 E- 7 , 

,.11»-  1  ~  -  r> , .  1  2  <j  R  L  - 


-o, -.2462E-5,-. 9082E-7..2178E— 5/ 

,656,-6. 224, 


o  i 

DATA  AO  1/-  1.  9  u  18  67,-.  916 2, -.4223,- 

1  -.2:-  1'C'j,-.t  572, -3. 365,  .943. 1.412,  .5392, 

2  .  ‘6  9"  -i,.C  M  1  H,  .  3  9  5#  12,  -  .0  13  12,.  32  269,  .  3  3657,  .3  341  , 

3  .  1  1-4  2  ,  .  33  >144,.  03?  18, .  15  5, -.04901,-.  9635  3  ,  .  00  1572, -.  6  2  39£- 3. 

4  -.  1153: -4, -.9: 4 ”2-4,.  32 2 2  F- 3 , -. 3 3 3 F- 3 . -. 5 C 1 E-3 , -. 0 04 5 04  , 

5-.  932  19  3,-.  1331 L-  3  , -.  425  2 E- 3,-.  3020  7  4..  70 7  IE-3,. 81 78E- 3,-. 1 901 E- 3. 

(  -.  01  )  3 ’>,.  OCf 94 4,.  09  175,.  1234, -.061  99, -.0  9771, .0  36 3, 

7  . 1234, -.2451- 3, -.0371 7,. 3041,. 1061,. 0682, -.05388, 

8  .  8  76 2F- 3,-.  395E- 3, -.3 01 522, -.003296,. 00 1981,. CO  14  15, -.00 2292/ 

DATA  A22/. CO 323n,-.7969E-4, -.001522, -.006569,-. 003469, .8433E-4, 

1  . 001 104,-. 1553F-4, .6372E-5, . 21 16 E- 4 , . 4 196E-4 ,-. 2631E-4.-. 200 1L- 4. 

2  .3346E-4.-.  7741  —  u,.1957E-5,.2l49E-4,.  49  93  E- 4,  .  44  69E-4  , -.  27  53E-5, 
3-. 8684 E-6, . 332 2F- 3, . 4981 E- 3, -.00 384, -.006 807, . 002303,. 002882. 

4.  001  139, -.  0  045 3,  -  .  18151-3  ,.  00266,. C011 8 3, -.005 17, -.00 360 4,. 00254  1, 
c  -.9593E-4,-.3247E-4,-.3302£-4,.1429E-3,-.4179I-4,. 7385E-4, 

6  .  26f  0- 6, -.  1424 E- 3,.  59 54 1  -5  ,. 5423 E- 4, .3 28 7 E-4,.  1639 E-3, -.11 19 E- 4, 

7  -.7F-4,. 18  0  3E-5,.  35 3f E- 6 , . 3 2 1 5E- 6, -. 23 E- 5 , . 53 09F-6 , -. 873 7E-6. 

8  -,  7  2  02  F-e,  .  37b8r,-5,  .4981-7, .  2687 £-7  ,  .9  122E-6,-.  221  IE-5,-.  5247t-6, 
Q  .  1C51L- 5/ 


CONOOOIO 

CON00020 

CON00030 

C  C  R  3 1  • 4  0 

CCN00050 

CCN00060 

CON00070 

CCN00080 

CON00090 

CON30100 

CONOO 1 10 

CON00120 

CONOO  130 

CON00140 

CONOO  150 

CCN00160 

CCN00170 

CONOO 180 

CON30190 

CON00200 

CCN00210 

CONOO  220 

CON00230 

CONOO  240 

CCN30250 

CON90260 

CCN00270 

CON00280 

CCN0029C 

CON00300 

CONOO  3 10 

CON00320 

CCN30330 

CON00340 

CGN30350 

CONOO  360 

CON30370 

CON3038Q 

CCN00390 

CONOO  400 

CONOO  4 1 0 

CCN00420 

CO NO  0  430 

CONOO  440 

CON30450 

CO  N30460 

CON00470 

CON30480 

CON00490 

CONOO 500 

CCN00510 

CCN00520 

CON00530 

CON00540 

CONOO  550 
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FILE:  CONTPL 


FORTRAN'  A 


PRINCETON  UNIVERSITY  TINE-SHARING  SYSTEK 


800 

FOP  NAT ('-• 

, 'INPUT:  FLIGHT  CONDITION  (A, 1C , VEL, ALT)  •  ) 

CON00560 

801 

FOI NAT ( • — • 

,  'PHI  EQUALS:  '  ,45X, • GAHMA  EQUALS:*) 

CON00570 

802 

FOR  HAT  ('O' 

, 4  F 1 0.  3, 13X.2P10. 3) 

CON00580 

8  11 

FORHAT (• -• 

, ' S  EQUALS: ' ) 

CONU0590 

812 

FORHAT  ('O' 

,  5  F  1 3.  3) 

CON00600 

829 

POP NAT ( • - • 

, 'STEADY  STATS  ESTIHATE') 

CON00610 

860 

FOR  HAT 

,*CrEN  LOOP?  <1  =YES,  0  =  NU)  •) 

CONO  0620 

803 

FORHAT (•-' 

,  'INPUT:  Q (SIDESLIP)  ,Q  (POLL  ANGLE)  •) 

CON00630 

8  09 

FORHAT  (•-' 

, 'INPUT:  PC  DIAGONAL  ELEN  ENTS  (2)') 

CON00640 

805 

FORHAT ( • — • 

,  'C (CONTINUOUS)  : ' ,31X,'Q  (DISCRETE) : • ) 

CON00650 

8  06 

FORHAT  {'  O' 

,  4  F3  .  3,  12X.4F3.  3) 

CON00660 

807 

FOFHAT ( ' -• 

,  'H (DISCRETE) :  '  ) 

CON00670 

808 

FOR  HAT  ('O' 

,  2F3.  3) 

CON00680 

809 

FCFMAT ( ' 

,  •  R  (CONTINUOUS)  :  '  ,7X,  •  R  (DISCRETE)  :  '  ) 

CON  30690 

8  10 

FOF  HAT  ('O' 

, 2F8. 3, 4X, 2FB. 3) 

CON00700 

813 

rP  F  H  A  ~  (  '  -' 

,'P  DID  NOT  CONVERGE  IN  ',14,'  STEPS') 

CON3071Q 

314 

FOF  HAT 

, ' F (STEADY  STATE)  EQUALS:’) 

CON00720 

3  15 

POR.HAT  (  '  O' 

,  4F1 0. 3) 

CON00730 

316 

FOF  HA"1  ('  -' 

, ' C?TI HAL  GAINS  (C)  EQUAL:') 

CON00740 

8  17 

PC  F  WA  T  (  '  0 ' 

, 4F1 3.3) 

CONG0750 

318 

FOF  HAT  (' -' 

, 'CL  EQUALS: ' ,27x, *CF  EQUALS: ', 1 1 X, *CI  EQUALS:') 

CON00760 

8  19 

*OPNAT ( ' J ' 

,  4  » R .  3 , 5  X,  2F  6  .  3 , 5  X  ,  2  F8 . 3 ) 

CON00770 

36  1 

FOR  HAT  (' -' 

, 'INPUT:  SECONDS  FOR  TINE  HISTORY') 

CON30780 

320 

v  o  p  *  A  7  ( '  -  1 

,  'D  YOU  WISH  TO  RUN  ANOTHER  DE-Y  VECTOR?', 

CON 30790 

i  •  (i 

=  YE5,Q  =  N0)  ') 

CON00800 

821 

FOFHAT (  '  -  ’ 

, ' INPUT:  DELY  VECTOR  (DEGREES)  -  (Y1,Y2)') 

CON00810 

322 

PC  F  HA  "  (  '  1  ' 

,  '  X  ( " :  I  H )  E  Q'JrL  3  :  {'.4F10.3,')  DEG') 

CCN00820 

823 

F 0 F  H A "  ( '  O' 

,  ’UlTFIN)  EQUALS:  {',2F10.3,')  DFG '  ) 

COND0830 

a  25 

FnF  VAT  (  '  ' 

,  '  TIT'  ,4  X,  •  YAW  FATE'  ,3X,  '  SIDESLIP*  ,3X,'  ROLL  RATE'. 

CON00R40 

1  IX, 

•  ROLL  ANGLE ',  3X, ' RUDLEF ', 5X, 'AILEFCN' ) 

CON00850 

626 

FOFHAT ( '  ' 

,  ' - '  ,  4  X  ,  ' - •  ,  3  X ,  ' - '  »  3  X  ,  ’ - ', 

CONGO  860 

1  IX, 

. - ',3a,' - ' ,  5 X,  ' - •) 

CON00870 

850 

FOF  HA"  (  '  J' 

,  '  ALL  OUTPUT  IN  DEG  OR  DEG/SEC') 

CON30880 

981 

FOF  HP  I  ( ' - ' 

, 'STATE  TRANSITION  HATR1X  TIME  HISTORY') 

CON0089  0 

827 

p  9  F  ¥  A  7  (  1  • 

,  *5.2,0  (3  X ,  F  8 .  3)  ) 

CGN00900 

3  30 

FOF  HAT  ('-' 

,  '  D 1 1  F  i  F  E T  Q  H  A  1  R  IX  ?  (  1  =Y  E  3,  0  =  NC )  ') 

CON30910 

831 

FOFHAT  ; ' -• 

,  'NONLINEAR  TTHi  HISTORY?  ( 1  =  YDS  ,  0  =  NC )  ' ) 

CON30920 

93  2 

FO  R  HA"  ('-• 

, ' LI NrA  F  T  IH  r  HISTORY?  ( 1= Y ES , 0= NO)  • ) 

CON00930 

328 

FC  f  HAT  ( '  -  ' 

,  '  A  NOTH  LT-  CASE?  (1=YES,0=NO)  ') 

CON00940 

870 

FOF  HAT  ( '  -  ' 

,  '  CL  I G  !i  T  CONDITION  MATRIX  EQUALS:') 

CON30950 

07i 

FOF  HAT  ('"  ' 

,  9  (F  r.  3,  IX  )  ) 

CCN30960 

872 

FOFHAT  (  ' -' 

,  '  SOHFDr,LL  GAINS0  ( 1  =  YES  ,  0  =NO  )  '  ) 

CON00970 

673 

POP. HAT  ( '  -• 

SCHEDULED  GAINS:') 

CON00980 

c 

CON00990 

C  100 

- 1  N  I T  :  A 

I IDATION  OF  HQDEL 

CONOI 000 

c 

CCNO 10 10 

INCLUDES  : 

ChEATlON  OF  F,  G  ,  HX  ,  A  ND  H'J  HATKICES. 

CONO 1020 

c 

ALSO  COT" 

TATI  ON  OF  SYS"! H  EIGENVALUES 

CONO 1030 

c 

CONOI 040 

£ 

CCNO 1050 

C  INPUT  PLIGHT  C 

CNDITICN:  ANGLE  CF  ATTACK 

CONO 1060 

n 

THROTTLE  SETTING 

CON31070 

c 

VELOCITY 

CONO 1080 

c 

ALTITUDE 

CONOI 090 

c 

CONO  1100 
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FILE:  CONTFL  FCFTEAN  A 


90n  WRITE  (o,  PC  ■'» ) 

READ  (6,*)  A,TC,VFL, ALE 

CREATE  FLIGHT  CONDITION  MATRICES 

FHO=.A02377*?XP  (-ALT/25000.) 

DT  NPRS=. 5*FHC*VEL**2 
FC  1  (1,1)  =EXF  (-.00  1  *TC) 

PCI  (2,  1)  =RC1  (1  ,1)  +DYNPFG 
PCI  (3,  1)  =FC1  (2,  1)  *DYN?F.G 
DO  10  1=1,5 
10  PCI  (1  +  3,  1)  =  F  C  1  (1 ,  1 )  *  A 
FC2  (1,  1)  =1. 
re  2  (2, 1 )  =TC 
DO  15  1=1,4 

15  PC2  (1  +  2,1)  =FC2  (I,  1)  *EYN?RS 
DC  2°  1=1,12 

20  FC2  (I+t,  1)  =FC2  (I,  1)  *A 
C 

C  INITIALIZE  STATE  A  NO  CONTROL  TC  IEIK 
C 

DO  100  1=1,4 
100  X0  (I)  =  0. 

DC  102  1=1,2 

102  U(I)=0. 

CALL  DNDYN  (A,TC,V  7.  L  ,  ALT  ,  X  0  ,  U  ,  EX  ) 

CT F  I  M  (1,1)  -CYB 
CTFI.r  (1,2)  =  c  y  r  ~ 

CTrir  (1,3)  =L  YD  A 
C T F I  v  (  2 ,  1)  -  CNF) 

C"-1-'  IF.  (2 , 2)  =  c  n 
CTFTV  (2,  3)  -  C  N  D  A 
C"  ?  I (  3  ,  1 )  =  C  I  D 
GTE  I  M  (3,2)  =  C L D  F 
CmF  Iv  (3,  1)  =  C  L  D  A 
CVFC  ( 1 , 1 )  =CY  0 
CVEC(2,1)=ZN'J 

cvrcc,  1)  =210 

C  NVF.fN=  1  3  0.  /3.  14  1  V* 

CALL  ~  M L  Y  (  3  ,  CT  F  I  '1 ,  3,CNVt\3K,CTF  IK) 
CALL  I  N7  PS  (  3  ,  C  TPT  v. ,  2  ,  APE  A  Cl ,  CTP  IK) 
CALL  SMI  LY  (3.CVEC,  1,-1.  ,CVEC) 

CALL  •'f'.PLY  (3,CTSI  M,  3.CVEC,  1,  CVLC) 
XT  (  1)  =0. 

XT  (2) =C  V  EC  (1,1) 

XT  (3)  =0. 

XT  (4)  =0. 

UT (1) =  C  V  L  C  (2,1) 

OT  (2)  =CVEC  (3,1) 

DO  110  1=1,4 

110  XC"T  (I  )  =  XT  (I)  +  CNVFSN 

rc  112  1=1,2 

112  C2CMT  (I)  =!1T  (I)  +  CNVPSN 

KP1TL  (C,H2  2)  (XOOT  (I)  ,1=1,4) 

W^TTE  (-,823)  (U20JT(I)  ,1=1,2) 


PRINCETON  UNIVERSITY  TIME-SHARING  SYSTEM 


CONO 1110 
CON01120 
CONO  1130 
CCN01 140 
CONO 1  150 
CONO1 160 
CONO 1 170 
CONOI 180 
CONOI 190 
CONO 1200 
CON01210 
CONO 1220 
CON01230 
CONO 1240 
CONO 1250 
CONO 1 260 
CONO 1 270 
CONO 1 280 
CONO 1290 
C  ON0 1300 
CONO  1310 
CCN01 320 
CONO 1330 
CCN01340 
CCNO 1350 
CONO 1360 
CCN01370 
CONO  138C 
CONO 1 390 
CCNO 140C 
CO  NO  1 4 1 0 
CONO 1 420 
CONO 1430 
CONO 1440 
CONO  1450 
CON  0 1 460 
CONO  1470 
CCNO 1480 
CONO 1490 
CONO 1 500 
CONO  1510 
CCNO  1  520 
CONO 1 530 
CONO 1540 
CONO 1 550 
CONO 1560 
CONO 1 570 
CONO 1 580 
CONO 1 590 
CONOI 600 
CONO  1610 
CCNO 1620 
CONO 1630 
CONOI 640 
CONO 1650 
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c 

CONO 1660 

C  COMPUTE  F,G,I!X,AND  HU  MATRICES  AND  SYSTEM  EIGENVALUES 

CONO 1670 

C 

CONO 1 680 

CALL  FANDG ( A ,T C, V 2L, A LT, X T , UT , F , G , H X , HU , 1) 

CONO 1 690 

CALL  EIGEN  ( F  ,  FCOPY  ,  4 , 0  ,  rf  F IGEN  .ZEIGEN  ,  WKF) 

CONO 1700 

C 

CONO  1710 

C  PARTITION  F,  G,  AND  HX  FOR  STEADY  STATE  RESPONSE  AND  COMPUTATION 

CONO 1 720 

C  OF 

GAINS 

CONO  1730 

C 

CONO 1740 

c 

CONO 1750 

C  F 

CONO 1760 

CCN01770 

DO  15r  1=1,3 

CONO 1780 

DO  152  J  =  1 , 3 

CON01790 

152 

FI  ( I ,  J  )  =  F  (I#J) 

CONO  1800 

150 

CONTINUE 

CCN01810 

DO  154  1=1,3 

CONO  1820 

F12  (I,  1)  =F  (1,4) 

CONO 1830 

154 

F21  (1,1)  =C(4,I) 

CONO 1 840 

F2  (1,  1)  =F  (4,4) 

CONO 1850 

C 

CON01860 

C  G 

CONO 1 870 

C 

CONOI 880 

DC  156  1=1,3 

CONO  189C 

DO  1rn  J  =  1  ,2 

CONO  1900 

1  5  P 

51 (1,0) =  G (I,J) 

CONO 1910 

156 

CONTI  NCR 

CONO 1920 

DO  lo"1  1  =  1,2 

CONO 1 930 

160 

'-JE'  (1,T)— 3(^,1) 

CONO  1940 

C 

CCN01 950 

n  HX 

COND196C 

r' 

CCN01970 

D°  115  1=1,2 

CCN01980 

DO  117  .7=1,1 

CON  0 1 99  0 

1  17 

HX  1  (I,J)  -  ;i  X  r,  1) 

CCN02000 

1  15 

CO  N  T  I  u r 

CONO  20  10 

DO  114  1=1,2 

CON02020 

1  14 

•' x 2  ( t ,  1)  (1,4) 

CONO  20  30 

r* 

CON02C40 

C  CO" 

PMTF  STATE  TF  ANSI  TIC  N  MATRIX  ANT  CCNTT.CL  EFFECTS 

MATPI X 

CONO  2050 

c 

CON02060 

CALL  STV  (4,  F,,  1,50, PHI, 0) 

CONQ2070 

CALL  CF"  (4  ,  F  ,2 , 3, .  1  ,  PHI  ,GA  MM  A  ,T  1  ,T2,  T  3,  IDEN) 

CON02O8O 

£ 

CCN02090 

C  OUTPUT  PHI  AND  GAMMA 

CONO  2 100 

r* 

CON02110 

WPITE (6, 301 ) 

CON02120 

DO  105  1=1,4 

CCN0213O 

105 

WPITE  (6,  302)  (Dili  (I,J),J=1,4)  ,  (GAMMA  (I.K).K=1,2) 

CON02  140 

C 

CON0215O 

;  200 

- CO  M  ?”T  AT IC  N  0?  GAINS 

CCN02160 

r* 

CON02 170 

z 

INCLUDES:  CC  MPUTATlON  0*  OPTIMAL  GAINS  (C)  AND 

THE  GAIN 

CCN02180 

c 

MATRICES  CD,  CF,  AND  Cl.  A  L5  C ,  THE  STEADY  STATE 

ESTIMATES 

CON02  190 

c 

(*PO«  F  MATRIX),  CCHPUTATICN  OF  CONTINUOUS  AND 

DISCRETE 

CON02200 
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n 

WEIGHTING  MATRICES,  AND  THE  SOLUTION  TC  THE  DISCPLTE 

CONO  22 10 

c 

E  ICCATI  EQUATION  (  P)  . 

CON02220 

c 

CON02230 

c 

CON02240 

C  S  MATRIX 

CON02250 

C 

CONO  2260 

r 

CON0227  0 

C  FOP  M  SI NV 

CONO  2280 

C 

CCN02290 

DO  200  1=1,3 

CONO  2300 

DO  202  J=1  ,  3 

CON02310 

2  02 

SI  NV  (I  ,.))=*  (I,J) 

CON02320 

200 

CONTINUE 

CONO  2330 

Do  204  1=1,3 

CON02340 

DO  20  6  J=  1  ,  2 

CONO  2350 

SIN  V (.1*  3,1) =HX  (J, I) 

CCN02360 

2  06 

SI  NV  (1,.7*3)  =G  (I,J) 

CON02370 

2*4 

CO  NT  INU  ;• 

CON02380 

do  :  o :  =  i,2 

CON02390 

DO  2  1  ‘  0=1,  a 

CONO  2400 

210 

SINV  (1+  3,  J*  3)  =H'I  (I  ,.l) 

CON0241 0 

208 

CONTI N  H  r 

CONO  2420 

c 

CON02430 

C  CC" 

P’JTi  f 

CCN02440 

c 

CCN02450 

CALL  I  NVFS  (5 ,SI NV , 4, AREAS, £) 

CON02460 

— 

CONO  2470 

c  ou: 

P'!T  - 

CON02480 

— 

CON0249C 

«R  it:  r ,  3i  D 

CONO  2500 

Dn  213  1=1,5 

CONO  2510 

213 

WFITF  (r,812)  (S  (T,  J)  ,J  =  1  ,5) 

CONO  2520 

C 

CON02530 

C  P  A  F 

TITT  T  N  S  For  GAIN  C  ALC'ILA  TIC  NS 

CON0254C 

C 

CON02550 

Dr  2°  J  1=1,3 

CONO  2560 

25  1  .7  =  1,3 

CCN02570 

201 

SI  1  C.O)  =  3  (1,0) 

CON02530 

2  aC 

CC  N  T I  N  •; - 

CONO  2590 

D 0  2->.  1=1,3 

CON02600 

DO  23  3  .7  =  1,2 

CONO  26 10 

S12  (I  ,  J)  =0,  (1,0*3) 

CONO  2620 

2Q3 

S3  1  (0,1)  =0  (.1*3,1) 

CCN02630 

2°2 

CC  NTINU" 

CCN02640 

DO  2C4  1=1,2 

CCN02650 

DO  295  J= 1, 2 

CON02660 

205 

S22  (I,  J)  =3  (1*3,0*  3) 

CON02670 

29a 

CONTI NUE 

CONO  2680 

C 

CON02690 

C  KY 

CON02700 

C 

CON027 10 

CALL  -MPLY  (1,F21,3,312,2, TEMP7) 

CON02720 

CALL  r.V.t  LY  (  1,G2,  2  ,  S22 , 2  ,  T  ESP  9) 

CONO  2730 

CALL  MAUD ( 1 , TEM?7 , 2, TEMP8, K Y) 

CON02740 

c 

CONO  2750 

non  n  n  n  n  n  n  non 
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C  SXI 
C 

CALL  MMPLY (3.S11, 3.F12.1 ,SXI) 
CALL  F M  PLY  (3,512, 2  ,  H  X  2  , 1 , T  £  M  P  1 3 ) 
CALL  MADD(3,SXI, 1,TEMn13,SXI) 
CALL  SMPLY  (3, SXI  ,  1 ,-  1.  ,  SXI) 

SXY 

CALL  .IMPLY  (3, S  11,3,5X1,1  ,Tr.*lP1  3) 
CALL  FMPLY  (3,TEMP13, 1,KY, 2, SXY) 
CALL  MADD (?,S12, 2, SXY, SM  Y ) 

SrJY 

CALI.  riPIY  ( 2,  S  21, 3,  SXI,  1,  TKMPt) 
CALL  .MMPLY  (2,TEMPt,  1,KY,2,S'JY) 
CALL  MADD (2, S22, 2, SUY, SUY) 


CALL  MMPLY  (  2  ,S 2 1 , 3 , F 1 2 , 1 , 3U I ) 

CALL  w  MDLY  (2,S22,2,HX2,1,Th.MP6) 

CALL  MADD  (2,  Si:  I,  I  ,TEM?b,  SUI) 

CALL  SIMPLY  (2.SJI,  1,-1., 3UI) 

AN  ADDITIONAL  STEADY  STATE  RESPONSE? 

GCTS  2  IS 

r* 

C  INPUT  : V  V- ETC  - 

n 

21S  DY (1, 1) -1 j. 

Dv  (2,  1) 

: It  DO  22  1  1  =  1,2 

22  D  DY  (1,  1)=^Y  (I  ,  1)  *  J.  14159/1 9C. 

C 

C  INITIALIZE  XET’.F  AND  '1ST AT  TO  ZERO  AT  TIME=D 
C 

DO  222  1=1,3 
222  X  1ETAF  (1,1)  =n. 

DO  224  1=1,2 
2  24  U  S  T  A  0  ( I ,  1 )  =  C  . 

X 2 STAR  ( 1  ,  1)  =?. 

TI 1  E=  0  . 

r 

S  OUTPUT  HEADING 

UNITE  (b, 829) 

WRITE  (6,  R5"1) 

WRITE (b, 62 5) 

W°  TTE  (  b,  P20 
C 

C  I  TF  PATE  ST  A  r.  DY  STATE  RESPONSE  FOR  TWO  SECONDS  AT 
C 


CON02760 
CON02770 
CONO  2780 
CON02790 
CON02800 
CON0281 0 
CON02820 
CON02830 
CON02840 
CON02850 
CON02860 
CON02870 
CON02880 
CON02890 
CON02900 
CON02910 
CON0292C 
CON02930 
CONO  2940 
CON02950 
CONO  2960 
CON02970 
CON02980 
CON02990 
CON03000 
CONO  30  10 
CON03020 
CONO  30  30 
CON03040 
CONO  3050 
CONO  3060 
CON03070 
CONO  3080 
CONO  3090 
CON03100 
CON031 10 
CCN03120 
CONO  3  130 
CCN03140 
CON03150 
CON03160 
CON03170 
CON03  180 
CON03190 
CON  03200 
CON03210 
CON03220 
CON03230 
CON03240 
CON03250 
CON032b0 
CONO  3270 
CON03280 

SECOND  INTERVALS  CON03290 

CON03300 
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DO  230  1=1,11 

CON03310 

c 

CONO  3320 

C  X2S 

TAP 

CON03330 

r 

CONO  3340 

CALL  SKPLY  {  1 , KY, 2 ,TI ME , KYDT) 

CON0335O 

CALL  MM PLY (1 , KYDT, 2, DY, 1, X2STAP) 

CON03360 

C 

CON03370 

C  X1STAR 

CON03380 

C 

CONO  3390 

CALL  HMPLY { 3.SXY, 2.DY, 1. X 1STAR) 

CON03400 

CALL  IMPLY ( 3,SYI, 1 .X2STAR , 1 .TEMPI  3) 

CONO  3410 

CALL  MAUD ( 3,X 1STA 1 , TE M P 1 3 , X 1 STA R) 

CON03420 

r* 

CONO  3430 

C  US  I 

a  r 

CCN03440 

f — 

CON03450 

CALL  PMPLY  (2, SOY,  2,DY,  1  .OSTAP) 

CO  NO  3460 

CALL  KM  PLY  (2,5';:,  1,X20TAn,  1 ,  T  EM  Fb) 

CON03470 

CALL  M  ADD  (2,  US  TAR ,  1  ,TEMP6, U STAR) 

CON03480 

c 

CON03490 

C  C  0  N  V  L r  "■  X  S  T  A  F  AVI  US"-Ac  TC  DSSREIS  FOR  OUTPUT 

CONO  3500 

C 

CON03510 

DC  23b  .7  =  1,3 

CON03520 

2  3t 

XOUT  (P)  =  X1'»TAU  (J,  1)  *1ftO./3.l415S' 

CON03530 

XOUT  (4)  =  X2S TAP  (1,  1)  *15  0, /  3.  14  159 

CON03540 

DC  234  J=  1 ,  2 

CONO  3  55C 

23S 

U  2  CUT  (J)  =2  STA  r  (J,  1)  *180. /3.  141f_>9 

CON03560 

VFJTF  (6,  627)  TIME,  (XO'IT  (J)  ,J=1,4)  ,  (02  CUT  (X )  ,K=1,2) 

CONO  3570 

C 

CCN03580 

C  STE 

P  TIME  .2  f>  E  C  C  *■  P r" 

CCN03590 

C 

CON03600 

T I F  E= .  2*  FLOAT  ( I) 

CCN03610 

230 

CO N TIN”: 

CCN03620 

Ip  (TV  '1.1)  .  ED.  1.)  JOT''  240 

CON03630 

-  Y  (1,  1)  =  '. 

CON03640 

PY  (2,1)  =2. 

CON03b50 

O^TC  21b 

CONO 3660 

C 

CON03670 

C  CPF  N  I.  rr--> 

CONO  3680 

CCN03690 

2  40 

wp :t: (k, °o  ') 

CONO  3700 

RFA  D  (6  ,♦)  I  DUES T 

CON03710 

I*  (ICr-ST.  i  C  -  1 )  SOTO  2403 

CONO 3720 

CON03730 

C  INI 

T I  A  LI  C  ~  STATE  ANJ  CONTTOL  WEIGHTING  MATPICtS 

CONO  3740 

C 

CONO  37  50 

DC  242  1=1,4 

CON03760 

DO  24  4  J  =  1  ,  4 

CON03770 

244 

QC (l.J) =0. 

CON03780 

24? 

CONTINUE 

CONO  3790 

DC  246  1=1,2 

CON03800 

D”  244  J=1,2 

CONO  38 10 

24P 

PC  (I  ,.7)  =0. 

CON03820 

2  46 

CC  NTT  •!'.)  E 

CONO  3830 

or  (i,i)  =  i. 

CONO  3840 

PC  (2,2)  =10. 

CCN03850 
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QC  (3,  3)  =  1 . 

CONO  3860 

QC  (4,4)  =25. 

CON03870 

RC  ( 1,  1)  =1 . 

CON03880 

RC  (2,2)  =  .  1 

CCN03890 

c 

CCN03900 

c 

COMPUTE  THE  DISCRETE  WEIGHTING  MATRICES  USING  SIMPSON'S  ROLE 

CON03910 

c 

INTEGRATION. 

CON03920 

r» 

CONO  3930 

c 

CON03940 

c 

INITIALIZE  TEMFCFAPY  0  AND  *» 

CONO  3950 

c 

CONO  3960 

DO  252  1=1,4 

CONO  3  970 

DO  254  J= 1,4 

CON03980 

254  C(I,J)  =  2C(I,J) 

CON03990 

L. 

52  CONTINUE 

CON04000 

DO  2^6  1=1,2 

CON0401 0 

DC  253  J= 1 , 2 

CON04020 

25?  R  (1,J)=FC(T,J) 

CON04030 

2  56  CCFTI'MF. 

CCN04040 

C 

CON04050 

z 

INI! IA  LIE  ATI  ON 

CGN04060 

c 

CONO  4070 

vg 

n 

n 

• 

CCN04080 

I N7VL  =  .  1 

CONO 4090 

I N  I  F  X  =  0 

CON04  100 

H=I NT7L/10. 

CON04  110 

CONO  4  1 20 

n 

S- 

qhat,“::at,  and  f ha t  at  to 

CON04130 

C 

CON04  140 

CALL  STM  (4  ,  F  ,  7  N  0  /.  ,  50,  PHITEM,  0) 

CON04150 

CALL  DEM  (4,F,2,G,TN7W, PH  I TE M , GA MTEM ,T 1 , T2 ,T3 , I D£N) 

CON04  160 

CA  LL  TP  NSTS  (4,  DUI7I  7,4,?:!IT) 

CON04  170 

CALL  v  M  P  L  Y  (4,  DU  17, 4, C, 4, TEMPI) 

CCN04180 

CALL  MMI LY  (4  ,T  EMP  1 , 4 , F H I T E K , 4 , QHATOT) 

CON 04 190 

CA!  L  WV?LY  (4,TEMF1,4,GAMTEM,2,MH  AT°7  ) 

CCN04200 

CALL  7r.NT.PS  (4,  J  A  M  7  EM  ,  2  ,  G  A  M  M  AT) 

CON04210 

CA  LL  FMPLY  (2,GAMMA7,  3,  4, 1EMP2) 

CCN04220 

CALL  TV'  LY  ( I  ,7  -MP2 , 4  ,  GA  MTE.M  ,  2  ,  T  E.M  F3 ) 

CON04230 

CALL  -A!  D  (2, F, 2, TEE  2  3,  F.  H  A  TOT) 

CON04240 

CONO  4  250 

c 

ITF.PAT-  7.'  FIND  THAT ,  Mi:  A  T,  AND  RHAT  FOP  TIME  INTEPVAL  =  .1  SEC 

CCN04260 

n 

CONO  4270 

DO  2( *  :  =  1,15 

CON04280 

T  N  C  W  =  7  N  0  W  ♦  =  L  C  A  7(1)  *i! 

CON04290 

CALL  STM  (4,  F,r:iD»  ,  5 D, PHITEM, 0) 

CON04300 

CALL  CEM  (4  ,r,2,G,TNOVi,  PHITEM, GAM  I  F.M,T  1,T2,T3,IDEN) 

CON04  310 

CALL  TRNSPG  (4, PHITEM, 4, Pll IT) 

CONO  4320 

CALL  r  MPLY  (4  ,  PHI", 4,  0,  4,  TEMPI) 

CON04330 

CALL  MMPLY  (4, TEMPI ,4, PHITEM, 4, QT NOW) 

CON04340 

CALL  MHPLY  (4,T5Mrl,4,GAMTEM, 2, MINOR ) 

CCN04350 

CALL  TPNSPS  {4,GAMTt.M,2,GAM.MAT) 

CON0436C 

CALL  F.  M?  LY  (  2  ,3  AMMAT,  4,  Q,  4  ,  TEMF2) 

CON04370 

CALL  MMPLY(2,TEMr2,4,GAMTEM,2,Tk.MP3) 

CON04380 

CALL  MADD (2,F, 2 , T CMP  3 , °TNCW) 

CON04390 

IF  (I  NDEX.LD.O)  GC70  2o2 

CON04400 

154 
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T  E  F  M=  2  . 

CONO  44  10 

INDEX=0 

COH04420 

GOTO  2 1>  4 

CCN04430 

262 

TFPM=  4. 

CONO  4440 

I NDEX  =  1 

CON04450 

2f  4 

IF(I.EQ.IO)  T  LRN  =  1  . 

CONO  4460 

CALL  S  M  PLY  (4,QTNOW,4,TFRM,CTNOW) 

CON04470 

CALL  SMPLY ( 4, K TNC K , 2 , TERM .MTNOW) 

CONO  4480 

CALL  S.NPLY  (2.PTNCW  , 2 ,?E P M , RTNCK ) 

CON04490 

CALL  MADP (4, QHATOT ,  4 , QTNO W , QH ATOT) 

CON04500 

CALL  M  ADD (  4 , SHATOT ,2 .STUCK, KHATCT) 

CON04510 

CALL  NADI  (2,  RHATOT,  2,  PTNCK,  RHATCT) 

CON04  520 

260 

CONTTNUL 

CONO  4530 

CCN04540 

C  CALCULATE  ?.i  AT  ,  .N  HA  T,  AND  III  AT 

CONO  4550 

C 

CON04S60 

IFF  N=H/7 . 

CONO  4  570 

CALL  S.NPLY  (4  ,  DUAT  J'l  ,  9  ,  TCP  N,  2H  AT) 

CON04580 

CALL  3  N  PLY  ( 4  ,  M  HA  TOT,  2,  TER  N  ,  MH  AT) 

CON04590 

CALL  SNPLY  (2  ,  P  FA  TOT  .  2  ,  T  ER  M  ,  R  H  A  T) 

CCN04600 

C 

CCN04610 

C  OUTPUT  QC,  SC,  D  H  AT,  NHAT.F  HAT 

CONO  4620 

C 

CON04630 

W r  I T  F  (6,  «J=>) 

CONO  4640 

DC  266  1  =  1,4 

CON04650 

266 

I  TE  (  6,  9  J') )  |?C  (I  ,  .7)  ,  J  =  1  ,  4  )  ,  (CHAT  (I  ,  K)  ,  K  =  1  ,4  ) 

CONO  4660 

MFTTE  (t  ,f  37) 

CON0467  0 

no  2t- 9  :=1.4 

CCN04680 

26° 

KF  JT"  !6,9C  >)  (*  •!  A  T  (I,  J)  .2=1  ,2) 

CON  04690 

*i T  I T F  (C-.POv) 

CON04700 

D"1  26  9  :=i.: 

CONO  47 10 

2^9 

wr  ITi  (6,  J1  )>  c:  c  ,J)  ,J  =  1,  2)  ,  (FHAT(I,K)  ,K=1,2) 

CON04720 

r~ 

CONO  47  30 

C  SC 

LUTTf  N  OF  TH  -  DISC?  RTF  PICCAII  EQUATION 

CON04740 

r* 

CON04750 

no  2"^  :=i,4 

CON04760 

no  2 72  .1  =  1,4 

CCN04770 

C.-i)  =  )- 

CONO  4780 

2^2 

P1’  •'NS  1  (1  ,  J)  =0. 

CON04790 

270 

r*  r\  >;  ™* w  *'  "  c 

CONO  4800 

cat  l  t:.  vs  ns  (4,  ?::: .  u,  phitj 

CON048 10 

CA  I  L  TP’.’S?-  (4,  GAN  6A  ,  2,  GA^AT) 

CONO402O 

CALL  7'  NS  PS  (  4, ’i  HAT,  2,1  2  ATT) 

CON04830 

pn et=  i . 

CON04840 

I NDCTF=  0 

CON0485C 

DO  27 r,  1  =  1,10  0) 

CON04860 

CALL  N.NDLY  (4, F K, 4, PH 1,4, TEN Pi) 

CON04870 

CALL  MMPLY  (4, PK, 4, GANNA, 2. TEN? 4) 

CON04880 

CALL  NNDLY  (  2  ,  G  AN  v,  A  T  ,  4  ,  TEN  P  1 , 4  ,  TEN°2  ) 

CON0489O 

CALL  N1PLY  ( 4 ,  PHIT  ,  4  ,  TS.NP  1 , 4  ,  TEMP  1) 

CON04900 

CALL  NNPLY  [2  .GANN  AT,  4,  TE.NP4, 2,  TEN?  3) 

CON04910 

CALL  NA.  L  (2,'rF.N?2, 4,  MHATT.TEMP2) 

CONO  4920 

CALL  NADD  (2,TFN"’3, 2,  Ri!AT,  7  c  M  P  3 ) 

CON04930 

OLL  T?N3DS  (2.TE.ND2, 4,  TENP4) 

CONO  4940 

CALL  IN7P3  (2,TFM?3,  1,AEEAR,  TEMP3) 

CON04950 
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FILS:  CONTI 
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CALL  IMPLY  (4,TEMP4,2,  TEMP3, 2,TEMP4) 
CALL  M.MPLY { 4,T 2MP4 ,2 , TENP2, 4 , TEMP5) 
CALL  SMPLY  (4  ,  TEMPS  ,  4  ,  -  1 .  ,  TLMPb) 

CALL  HADD{4,TEMP5,4,QHAT,TEHP5) 

CALL  NATD {4, TEMPT, 4,  TEMPS, PKMNS1) 

PD  ET2= 1 . 

DO  276  J=  1  , 4 
XT1  (J)  =0. 

DO  277  K=  1 , 4 

277  XT1  (J)  =XT1  (J)  ♦PKMNSI  (J,K) 

IF  (XT1  (J)  .  tg.O.)  GOTO  276 
PDET2=?DET2*XT  1  (J) 

276  CONTINUE' 

DO  270  J  -  1  ,  4 
DO  2  71  K  =  1 ,  4 

279  P  K  ( J  ,  K  )  =  ?  K  M  N  S  1  ( J  ,  N ) 

2  78  CO  NT  I  NTJ.:: 

pr>  26  )  0=1,4 

DO  2  c 1  K  =  1 , 4 

I F ( J.GL. K)  G CTO  23  1 

TV  (J  ,Y)  =  .5*  { ?K  ( J  ,  X )  ♦  ?K  (K,  J)  ) 

PK  (K, J) =?K  (  J,K) 

281  CON  TINT r 
230  CCNTINJ- 

DP=  A  P  3 ( ( PL  £  T2- PDiT) /POET) 

IS  (Dk  .  LI  .  ( 1 .  E-f)  )  GOTO  24  11 
PDET=?j-72 
275  CO  N  T  T  N  U~ 

C  SFRGP  msssaii  pC-  N  ^CONVERGENCE 
WRITE  (:•,  01  3)  I 

r* 

C  OUTPUT  PITT  LA  TV  STATE) 
r 

2401  WRITE  ( 6  ,  B  1  4 ) 

DC  2C  2  1  =  1,4 

292  WRITE.  ( b  ,  015)  (?-:  (I  ,0)  ,.1=1.4) 

C  COM  PUT  ATI JN  0"  CtTIMAL  GAINS,  C 

c 

CALL  fc  M  PLY  (4, PK, 4, GAMMA,  2.TEMP4) 

CA  LL  KMFLY  ( 4, PK, 4, PH  I, 4, TEMPI) 

CALL  MM2LY  (  2  ,  G  AM  M  AT  ,  4  ,  TS  MP4  ,  2,  TEMPI) 
CALL  IMPLY  (2 . GAM  MAT, 4,  TE M ? 1 , 4 , TEH P2 ) 
CALL  MADD  (2, TEMP 3, 2 , RHAT , TEMF3) 

CALL  MADE  (2,TEM'*2,4,  MHATT,TEMP2) 

CALL  INVPS  (J.TTMPJ,  1, AREA  I.  , TEMP  5) 
CALL  MMPLY  (2,TE*?3,2,TEM?2,4,C) 

GOTO  2402 
C 

C  IF  OPEN  LOOP,  OPTIMAL  GAINS  ARE  ZERO 
C 

2403  Dr  233  1=1,2 
DO  2R6  .1=1,4 


CON04960 
CON04970 
CON04980 
CON0499G 
CON05000 
CON050 10 
CON05020 
CON05030 
CONO  5040 
CON05050 
CONO 5060 
CO  NO  5070 
CONO  508C 
CON05090 
CONO  5  100 
CON05  1 10 
CON05120 
CONO  5130 
CCN05140 
CCN05150 
CONO  5  1 60 
CON05170 
CONO  5180 
CON05190 
CONO  5200 
CCN05210 
CON05220 
CCN05230 
CON05240 
CON05250 
CCN05260 
CONO  5270 
CCN05280 
CONO  5290 
COF05300 
CON 05310 
CCN05320 
CCN05330 
CONO  5340 
CON J5350 
CONO  5360 
CCN35370 
CONO  5380 
CON05390 
CCN05400 
CCN05410 
CON05420 
CONO  5430 
CON05440 
CONO  5450 
CC  NO  54b  0 
CONO  5470 
CONO  5490 
CONO  54  90 
CON05500 
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CON0551 0 

CONO  5520 

CON05530 

CON05540 

CON05550 

CON05560 

CONO  5570 

CGN05580 

CONO  5590 

CCN05600 

CONO  5610 

CON05620 

CCN05630 

CONO  5640 

CCN05650 

CONO  5660 

CON05670 

CONO 5680 

CON05690 

CON05700 

CONO  5710 

CCN05720 

CONO  5730 

CON05740 

CONO  5750 

CON05760 

CON05770 

CCN05780 

CCN05790 

COND5800 

CON0581 0 

CON0582C 

CCN05830 

CONO  5840 

CON05850 

CONO  5860 

CON05870 

CON05880 

CONO  5890 

CON05900 

CONO  59 10 

CON05920 

CONO  5930 

CON0594C 

CON05950 

CON0596C 

CON05970 

CONO  5980 

CONO  5990 

CON06000 

CON060 1 0 

CON06020 

CCN06030 

CONO  6040 

CON06050 
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FILE: 


2230 
2225 
875 
8  76 
877 


2200 

878 

979 

880 


2201 


2202 


2  22" 
r* 

C  3H 

C 

c 

r 

300 


C  4n* 


CON TEL  FORTE  AN 


PRINCETON  UNIVERSITY  TIME-SHARING  SYSTEM 


DO  2230  J=1 ,9 
A2  (I  #  J)  =  A2  1  (I,  J) 

A2  (I, J  +  9) =  A 2 2  {I, J) 

CONTINUE 

FORMA'7’  (•-•,»  PCI  EQUALS:  •  ,  9  (E  10.  4,  IX)  ) 

FORMAT (•-•,' A1  EQUALS:  '  , 5 (E 1 0 . 4 , 1  X  )  ) 

FOR  MAT  ( •  ‘ , 9 (E  10.4, IX) ) 

WRITE  (6,  875)  (F  Cl  ( 1 ,  1 )  ,  1=  1  ,  9 ) 

WRITE  (6,87 C)  (A  1  (1,1)  ,1  =  1,9) 

DO  2200  1=1,6 

WR  ITE  (6 , 877  )  (A  1  (I  ♦  1 ,  J)  ,J=1,9) 

FORMAT  (*-',' rC2  EQUALS:  '  ,  9 (E10.  4,  1  X)  ) 

FOF MAT  A2  EQUALS:  •  ,  9 (E 10. 4 , 1  X)  ) 

FORMAT  (  '  •  ,  '  '  ,9  (tlO.4,  1  X)  ) 

WF  ITE  ((  ,87?)  (?C2  (I  ,  1)  ,1=1  .9) 

WPITE  (c  ,  379)  (A  2  (1  ,  I)  ,1  =  1.9) 

DO  22^1  1=1,  r 

WRITE  (0, 830)  (A  2  ( I  ♦  1  ,  J)  ,  J=  1,  9) 

KRIT"(:<,R"73)  (F  22  (1,1)  ,1=10,19) 

WRITE  (E,  379)  (A 2  (  1,  I)  ,1  =  10,13) 

DO  2202  I=1,o 

WRIT!  (6  ,  3  5  0)  (A 2  (I  ♦  1  ,J)  ,  J  =  10,  18) 

CALL  VM2LY  (7,A1,5,FC1,  1.CFHC1) 
call  C7,;,:,  is  ,fz2,  i,cfeel-2) 

CB  (1,1)  =CFr IL1  (1, 1) 

cp  (2,  i)  =cfiedi 1 1 

CE  (2,3)  =  C F r  EDI  (3,1) 

CP  (2,4)  *Z*z\Z 1  (4,1) 

cf  (i  ,2)  =:f:edi  r>,  D 
OF  (2,1)  =CF1I D1  (6,1) 

CF  (2,2)  =CF'I21  (7, 1) 

CB  (1,2)  =CpFFE2  (1, D 
C?  (  1,  3)  =0^.222  (2,1) 

C”  (1,4)  =  CF:  122(3,  1) 

CB  (2,2)  =;*EEE2  (4,1) 

CF  (1 ,  1)  = :Fr  B22  (5,  1) 
ci  (1,1)  LILT  (6,  1) 

c:  r.  1)  =23: 2:2  r.  1) 
c:  (1,2)  -3. 
c I  (2,2)  =0. 

WHIT;  (6,  r  7  7 ) 

WF  I  TL  ('.  ,  c'  13) 
r?  222  J  1=1,2 

WP  :t-  (6 ,313)  (CF  C  ,  J)  ,.7=1  ,4)  ,  (CF  (1,K)  ,  K=  1,  2)  ,  (CI  ( I ,  L)  ,  L=  1  ,2) 
- COM  PUT  AT  IC  Cr  CLCSEC  LCCF  F 

INCLUDES:  CC M PUT  ATI n N  OF  FCL  AND  ITS  EIGENVALUES 

CALL  MMFLY  (4,G AMF A , 2 ,C 3, 4 .TEMPI) 

CAI  L  M  ADD  (4,  PHI,  4, TEMPI,  PH  ICL) 

CALL  CLCC:?C  (4  ,  PHI  CL,  .  1  ,  PC  L  ,  1 ) 

CALL  E  I  GEN  (FCL.FCLCPY,  4,  0  ,  W  El  G  EN,2tI  SEN.  WK  F) 

- TIME  H I STC  P  Y 


CCN06060 
CON06070 
CON06080 
CONO  6090 
CON06100 
CONO  6  1 10 
CCN06120 
CON06130 
CON06140 
CONO  6150 
CON06160 
CCN06170 
CON06180 
CON06190 
CCN06200 
CON06210 
CON06220 
CON06230 
CON06240 
CON06250 
CONO  6260 
CON06270 
CON06290 
CON06290 
CCN06300 
CON06310 
CCN06320 
CON06330 
CON06340 
CCNJ6350 
CON06360 
CON06370 
CONO  6  380 
CON06390 
CONO  6400 
CON06410 
CCN06420 
CON06430 
CON0&440 
CCN06450 
CON0646C 
CON06470 
CONO  6480 
CON06490 
CON06500 
CON06510 
CON06520 
CONO  6  530 
CON06540 
CONO  6550 
CON065oO 
CON06570 
CON06580 
CCN06590 
CON06600 
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PILE: 


ONT*>L 


FORTRAN  A 


PRINCETON  UNIVERSITY  TIME-SHARING  SYSTEM 


C 

C 

C  NONLINEAR  TIME  HISTORY  ( 4T  H  ORDER  RUNGA-K'JTIA  INTEGRATION) 
C 

WP ITE  (o, 1 ) 

READ  (6,*)  IC'JEST 
IP  (IQUEST.  Nf  .  1)  GOTO  460 

CALL  RKINT  ( A  ,TC ,  VFL,  ALT,  C  B,  C  F,  Cl,  XT,  UT) 

C 

C  LINEAR  TIME  HISTORY  (ST ATI  TRANSITION  MATRIX) 

r* 

46C  WP  IT Z  (  5  ,  P  3  2) 

RFAD  (-,*)!  2'JEST 
IF  (TCV’LST.  NE.  1)  GOT1'*  SO) 

IF  (TO’-’iST-  \’E.  1)  GOTO  SOO 
I  NDZTP=  ) 

I  N  T  V  L  =  .  1 
I ^  EC=  S 

it:- ?-  i  is  r c 

I OUT  =T  TE  V /S  0 
GPT  ^  4  0  S 

40c  D Y  (1,1)  -10. 

DY  (2,  1)  =  0. 

402  DO  4^  :=  1  , 2 

4  06  DY  (T  ,  1 )  =  EY  { 1 ,  1 )  *  3  .  1  4  IS 0/1  30  . 
d:  4 ip  :=  i ,  4 

410  x ( : , i ) =0. 

DO  4 11  1=1,4 

4  11  XT""  (!)  =  X  ( I  ,  1 )  *  1 6  .)  .  /  3.  14  15V 
Wct  ~-L  ( t ,  as  1 ) 

WP  ITr  (6  ,  or'°  ) 

VBTT?  (r.,32S) 

WP  IT  -  (o,  i12-j) 

CALL  *MPLY  (  2  ,  C  2  ,  DY  ,  1,02) 

DO  4  4"*  1=1,2 

44)  ’1 2  C  71  (I)  =  H  2  (I,  1)  *160. /3.  14159 

TT  v i- 0. 

*:  :T-(-.,»27)Ti:iE,  ( X  C  J  T  (I  )  ,1=1,4)  ,  (U2CUT  (0)  ,0=1,2) 

DC  4  is  1=1 ,  I  7  L  - 
INLCTP  =:NDCTc'*  1 
TI ME  =  : NTVL* FI  CAT  ;  I) 

CALL  MMPLY  (4,  GAMMA,  2,U  2, 1  ,TEMP  10) 

CALL  MMDLY  (4, PHI ,4,X, 1,X) 

CALI,  “ADC  (4,  X,  1, TEMPI), X) 

DYT  (1  ,  1)  =DY  (1,1)  * 71  ME 
DYT  (2,  1)  =DY  (2,  1)  *TIME 
CALL  MMPLY  ( 2  ,  C 1 , 2  ,  DY  T,  1 ,  TEMP6) 

CALL  MMDLY (2,CF,2,DY,1 , T F M P 1 1 ) 

CALL  MADE (2, TEMP1 1 , 1 , TEM  Pfc, TEMT6) 

CALL  MMPLY ( 2,C3, 4, X ,  1 , TEM.  1  1 ) 

CA  LL  MACD  {  2  ,  T  F  M  Pt> ,  1,  TEMPI  1,U2) 

I* (INDCTT. VE.IPMT)  SOTO  415 
DO  421  0=1,4 

421  XO"T  (0)  =  X  (0 , 1)  *  1  H0./3. 14  1S9 
DO  4  26  J  =  1  ,  2 


CON066 1 0 

CCN06620 

CON06630 

CCN06640 

CON06650 

CON06660 

CONO  6670 

CON06680 

CON0669C 

CON06700 

CCN06710 

CON06720 

CON06730 

CONO  6740 

CON06750 

CONO  6760 

CON06770 

CON06780 

CONO  6790 

CCN06800 

CONO  68 1C 

CON06820 

CON06830 

CCN06840 

CONJ6850 

CON06860 

CON06870 

CONO  6880 

CO  N0b890 

CONO  690C 

CON069 10 

CCN06920 

CON06930 

CON06940 

CON06950 

CCN06960 

CON06970 

CON06980 

CON06990 

CON07000 

CON07010 

CON0702C 

CON07030 

CON07040 

CON07050 

CCN07060 

CCN07070 

CON07080 

CON07090 

CON07100 

CCN071 10 

CONO  7  1 20 

CON07130 

CON07  140 

CON07 150 
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FILE: 

4  26 

415 

500 


1 


CO  NT  ?L  FORTRAN 


PRINCETON  UNIVERSITY  TIME -SHARING  SYSTEM 


U2 OUT  (J)  =U2  {J,  1)  *180./3.  14159 

CON07160 

WPITE {6,  82  7) TIME,  (XCUT  (K)  , K= 1 ,4) ,  (02  CUT  ( J ) ,J  =  1 ,2) 

CON07  170 

INrCTR=0 

CON07130 

CONTIN'JF 

CCN07190 

IF  (DY  ( 1,  1) . EQ. 0. )  GOTO  500 

CON07200 

DY (1, 1) *0. 

CON07210 

DY  (2,  1 )  =  2. 

CON07220 

GOTO  402 

CON07230 

WRITE  (6,  830) 

CON07240 

READ  (6,*)  IQ  U  EST 

CON07250 

IF  (IQ'JEST.  FQ.  1)  GOTO  240 

CON07260 

WPITr  (6,  82°) 

CON07270 

FFAD  {o  ,*)  I  2UF.ST 

CON07280 

IE  (ICTLS7.  10.  1)  goto  900 

CON07290 

STOP 

CON07300 

END 

CONO  73 10 

160 


LDLYN 


FORTRAN  A 


PRINCETON  UNIVERSITY  TI M E-SH AR I N 0  SYSTEM 


.  ILE : 


C 

C  THP  FCI LOPING  SUBROUTINE  COMPUTES  THL  NONLINEAR  EOUATIONS  OF 
C  MOTION  BY  ACCEPTING  THE  CURRENT  STATE  (X)  AND  THE  PLIGHT 
CONDITION  (A,TC,VZL)  AND  RETURNING  THE  STATE  SATES  (DX) 

C 

SUBROUTINE  ENDYN ( A , TC, V E L , ALT , X , 0 , DX ) 

DIMENSION  X  (4)  ,  DX  (4)  ,  (2) 

CO MM ON/C NT  PL  S/DP # DA, BETA 

COBMON/CYCOEF/CY ,CY0,CYB, C Y D P, C YD A , C YP, C Y R 

COM  HON/C  NC  C  EF/CN ,CNO,CNB,CMDR,CNDA,CNP,CNR 

CO M MON/C LC OE F/CL, C LO ,CLB,CLDR,CLLA , CLP, CLR 

CO  HNPN/C  YCC M P/CY  OT,  C  Y 0 0, C  YLT ,CYB0 ,C  YDRT ,C Y DF  0 

COiMMCN/CNCCMP/CNCT,CNOC,CNBT,CNBG,CNERT,CNDBO 

CO K MON/CLC C M P/CLOT, C LOO, CLBT.CLBO, CLERT.C LDP 0 

CO  M MC  N/PCOM  P/C  L?G  AM , CLACLA , CLPDGT, CL  PEG  0, K, CNPCL 

COKMC N/PCCM P/C1RCL, CLIFT T.CLIFTO.CDR AST, CDP AGO,  CYPCL 

CO  M  MC N/C N S  T NT/M A C  H 

PEAL  MACH,  IX,  IZ,  K,  MASS 

C  COMPUTE  CONSTANTS  REQUIRED  FOR  COMPUTATIONS : 

C  STS  -  SPEED  TP  SOUND  (FFFI/SFC) 

S  ALT  -  ALT  IT  DTE  (FEET) 

T  ETC  -  DENSITY  (SLUGS/?  KET**  3) 

C  I  y  -  MuMENT  Op  INSET  I A  ABOUT  X  (SLUG 3*F ZZT* *2) 

C  IT  -  v  '  M r  N  T  CF  INERTIA  ABOUT  2  ( SL'JGS*F &£  I*  *  2) 

C  E  -  SPAN  ( p  £  £  T) 

C  D  Y  N?;  T  -  DYNAMIC  PF.LSS’JFF  (LPS/  (PFFT**2)  ) 

C  MACH  -  LOCAL  MACH  NUMBED 

c  s  -  pin;  area  (?^t**2) 

C  MATS  -  A  IF CF AFT  MASS  ( LF S *5 EC * *2/ F E ET) 

C  GF  A  V  -  G  F  A  7 ITATTONAL  CONSTANT  ( FEET / ( SEC* *  2) 

F  P  A  =  0  . 

PI  =  3.14154 
B  r  ~  A  =  X  (2) 

APAD  =  A*PI/1S0. 

FUf:  =  .  0-2  A  77*  CMP  ( -  A  LT /2  5  r  C  0  .  ) 

50  r  =  l1!'.-(.  034  30)  *  ( A  L  "'J 

mac:;  ^  v el/s cs 
[  -  1  3.  3  A 

IX  =  12  >4.  -  - 

I"  =  1214.72 

S  -  1  <4. 

DYNPFS  -  .  5*":U'*  (VtL**2) 

GPAV  =  32.  174 
MASS  =  2  94  3 .  / S F, A  V 
DP  =  U  (1)  *  1K-D./3.  1415G 
DA=U(2) *11 J./1.141O0 
ZP=  2.6  7 
LP=  17. 2> 

1  =  ZP*CO.G  (AFAD)  -L?*SIN{A{  AD) 

r* 

C  INITIALED  r.  LON  3 1  T  UDI  N  A !  STATF  VARIABLES  (Q,U,W) 

C 

0-0 


LDD00010 
LDD00020 
LuDD  0030 
LDD00040 
LLDOOOSO 
LDD00C60 
LEE00070 
LDD0008G 
LEE00090 
LDDOC  TOO 
LDD001 10 
LDDO  0  120 
LDD00130 
LDCOO 140 
LDD00150 
LEE00160 
LDDOO 170 
LEE001B0 
LDDOO 19G 
LDD00200 
LDD002 1 0 
LDD00220 
LDE00230 
LDD00240 
LDE00250 
LDDOO  260 
LEE00270 
LDD00280 
LDD00290 
LDDOO  300 
LEE00310 
LDDOO  320 
LED00330 
LDDOO  340 
LDD°0350 
LDD JO  360 
LDD00370 
LEE00380 
LDDO  0  390 
LDC00400 
LDDOO  4 10 
LDD00420 
LDD00430 
LDDO  0  440 
LDD00450 
LDD00460 
LDD00470 
LDD00480 
LDD00490 
LDDJ0500 
LDDOO 5 10 
LDD00520 
LDDOO  530 
LDC00540 
LDEJ0550 
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PILE:  LDDYN 


FORTRAN  A 


PRINCETON  UNIVERSITY  TIME-SHARING  SYSTEM 


VFL 1  =  (V£L**2- (SIN  (X  (2)  )  *V£L) **2) **.  5 
UVE L  =  VEL  1 
V  =  0. 

C 

C  THE  FOLLOWING  PORTION  COMPUTES  THE  STABILITY  AND  CONTROL 
C  CEfi I VITIV2S  GIVEN  THE  CURRENT  FLIGHT  CONDITION. 

C 

C 

C  CONSTANT  COMPONENTS 

CYOT  =  (((((( 1.  °94E-8*A-7. 104E-7)  *A  +  1.6  3E-5)  *A-1  .496E-4)  *A 
1  *2. 979E-4)  *A  *2 . 44  SE-  3)  *A-1. 715E-2)  *A 

CYO''  =  (<((((-  1.  996H-9*A*  1.298E-7)  *A-2.  974E-6)  *A«-2.713E-5)  *A 
1  -5. 525 L-5)  *A-4.  614E-4)  *A*  1. 8  12E-3)  *A 

CYO  =  CYJT*TC4CYD0 

C NO T  =  (  (  (  (  (  (5.  553E-4*A-  3.  259E-7)  *A*6.695£-6)  *A-5.41bE-5)  *A 
1  *">.  b3  3  £-5)  *A  ♦  1 . 01  OF- 3)  *  A -4. 5  04  E-3)  *A-.032  8  1 

CNC  =  (  (  (  (  (  (3.  0  1 7  F-  1j*«-2.  568E-8)  *A  +  6.  104E-7)  *A-5.  88  IE-6)  *A 
1  ♦ 1. 52 L-5) *A*d.592£-5) *  A-5 . 5 9 3E - 4 )  *  A* .  0  0  18  22 

CN  0  =  CNPT  *TC  +  CNC  0 

CEO  =  (  ;  {  £  (  (-7. 9->  ?F-lJ*A>4.458E-8)  *A-9.  659E-7)  *A*7.  877E-6)  *A 

1  -fc.  r7  1  e-6)  *A-  1. 63  7E-4)  *A»2.167E-4)  *A  ♦.0071"' 

SIDESLIP  ( Li)  DERIVATIVES 

CYP7  =  (  (  (  (  (  (1  .  2  74R-9*A-8.c3E-8)  *  A ♦ 2 . 08 9i- b )  *A-2.044E-5)  *A 

1  +4.  79  IE- 5)  *A*3.  1  16E-4)  *A- 1.607  E-3)  *  A -.01 88 

CYr3  -  .  C  10 2  3c  *A-  .  0  1249 
CYP  =  CTPT^TC+’CYB0 

CNLT  =  ( ( (  (  (  (-c. b )4-- 1 1*  A* 2. 56  4L-9)  *A-8.59oE-8) * h* 1. 123F-6) *A 
1  -4.  37oL-6) *  A- 2. OS1E-5) *A+3. 19b  E-4) *A*.001 

CNF  j  =  (  (  (  (  (  (3.  '•  3  3r-  12*A-4.  747E-  10)  *A+1.815E-8)  *  A-2.5  9  9E-7)  *A 
1  ♦  1. On  8£ -b) *3. 96 72-6) *A-5.04  9E-5) •A  +  .OGI 

C  V  p.  -  CN  P7  *’  7  C  ♦  CN  D  > 

CLP T  -  (  ( (  (  {  (-  3.  2-i  IE  -  10*  A *2-  3  It- 8)  *A-5.  74  2E-7)  *A+5. 633t-b)  *A 
1  -  1 .  1u*r-')*A-9. 937 2-5) *A44 .282E-4) *A -. 0010b 

CL'-''  =  £  (  (  (  (  (6  .6P  71-  11*A-4.  4C6E-9)  *A*1. 06  3E-7)  *A-1. 312E-6)  *A 

1  ♦  1 . 352F-0) *A* 1 . 433  C-5) *A-1 .463E-S) *A-.00155 

CLP  =  CL  31  *7  C  +  CLD  ' 

*  P’ODL-  (  0:  i  LL  E  I  VAT  IV  ES 

CYDPT  =  (  (  (  (  (  (C.225E-10l,'A-4.G75E-8)  *A4-9.409£-7)  *A-0.b51E-6)  *  A 

1  ♦  1.  6  17L-5)  *A*  1.  5P2E-4)  *A-2.  147E  -4)  *A*.  006  8 

CYDRO  =  { (  £ ( ( (4. o J7E-1 1  *  A  -  3 . 079L- 9) * A*7.235£-8) *A-6 .9 12E-7) *A 
1  ♦  1. 69  5  F  -  b )  *  A*  t  .  5352-6)  *A-1.208E-5)*A*.0029C 

CY  DR  =  CYD  R  T*TC*  C Y  DP  Q 

CN  DPT  =  ( {  ( ( ( £-a.  53RE- 1 1  * A»4. 47bE-9)  *A-7. b5£-8) *A*5.04bE-7) *A 

1  -  1 .  104£-b)  *A-4«531S-b)  *  A  -  6.  116E-5)*A-.0043 

CN  LRO  =  ( (  (  (  ( (-7.  266E-1 1  * A ♦ 4 . P32E-9 ) *A-1. 141 £-7) *A*1.077E-6) *A 
1  -  2.  10  6E-6. )  *A  -  1.  64  L-5)  *A*2.  94  6F-  5)  *  A-.  CO  15b 

c n r  -  =  c:aRT*TC*cNDP  o 

CLP-7  =  (  (  (  (  (  (  3.  27  8L-  10*A-2.  428E-8)  *A*6.533F-7)  *A-7.27E-6)  *A 
1  *2. 064 £-5) *A  + 1.294 E-4) *A-6.3  96t-4) *A 4.00  168 

Cl  DPr-  -  (  (  (  (  (  (-1.  3P  IE-  10*A*9.56  8E-9)  *A-2.  3  94 £-7)  »A*2. 4  87E-6)  *A 


LDD00560 
LDD00570 
LDD00580 
LDD00590 
LDD00600 
LDD006 10 
LDD00620 
LDD00630 
LDD00640 
LDD00b50 
LDD00660 
LDD00670 
LDD00680 
LDD00690 
LDD0070C 
LDD0071 0 
LDD00720 
LDD00730 
LDC00740 
LDD00750 
LDDO  0  760 
LDD00770 
LDE00780 
LDD00790 
LDE00800 
LDD00810 
LDD00820 
LED00830 
LDD0084C 
LDD00850 
LDDO  0  860 
LDD00870 
LDD00880 
LDD00890 
LDD00900 
LDDO  0  910 
LDD00920 
LDD00930 
LDD00940 
LDDJ0950 
LDDOO  960 
LDD00970 
LDD00980 
LDD00990 
LDDO  1000 
LDDO 1010 
LDE01020 
LDDO 1030 
LDC01 040 
LDDO 1050 
LCD01 060 
LDDO 1070 
LDDO 1080 
LDDO 1090 
LDD01 100 
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ILF:  LDDYN 


FOB IP  AN  A 


PBINCETCN  UNIVERSITY  TIME- SHARING  SYSTEM 


1  -6.9SE-b)  *A-4.08bE-5)  *A*1.717E-4)  *A*.  000 247 

CLDF  =  CLDFT*TC4-CLDP  3 

AILEPON  (DA)  DEFIVITI VES 

CY  DA  =  ( ( { ( ( (2.433E-1 1*A- 1.603E-9) *A*3. 859E-8) *A-3. 817E-7) *A 
1  49.667F-7)  *A  +  5.  518F-6)  *A-2.085F-5)  *A -.00026 7 

CNF  A  =  (  ((  (  {  (-1.b37F.-11* A  4  1.088E-9)  *  A- 2.  59  bE-8 )  *  A*  2. 4  97L-7 )  *A 
1  -5- 13  3E-7)  *A-4. 02  38-6) *A+3.243E-S) *A-. 000005 

CLDA  =  {(((((- 1.  38  1F-n*A*9.  dE-10)  *A-2.405E-8)  *A+2.227E-7)  *A 
1  -2.285L-7) *A-5.377E-6) *A*3.6 19 £-6) *A-.00127 

CC-P'ITE  CLIFT  AND  CDF.AG  TO  HELP  CALCULATE  P  AND  R  DERIVATIVES 

CL I°TT  =  ( ( ( ( { (2.  78f-8*A- 1. 81E-6) ♦  A  ♦  4.  299 E-5) *A-4.463E-4) *A 

1  +1 . 53 8 r -3)  *A-M ..  76  IE- 3)  *A-1.32lL-3j  *A*.357 

CL  I  FT 3  =  (  (  (  (  (  (-5.  57  IE-  1  0*A*8.  9  52E-8)  *A- 3.  6  84  E-6 )  *  A  *5 . 4  2E-5)  *A 
1  -2.531E-4) *A-9.214L-4) *A*.08337)*A*. 121 

CLIFT  =  CL1 FT?*?C*CLIFTO 

CDF  ACT  =  ((((((-  1.  40  IE-9*  A  ♦  1.0452-6)  *A- 2.  756 E- 5)  *  A*  2.  96  8E-4)  *A 
1  -9. 03b E-4)  *A-. 003 331  ) *A*.02 157) * A- 1. 053 

CDF  AG"  =  ((((((-  6.  5391-1  0  *  A  ♦  2.  t  08  E-8)  *A-1  .  1  76F-7)  *  A -5  -  24  42-6)  *A 

1  +7. 75  IE-5)  *A-2.  27  8  5-5)  *A+-4.26  3F.-5)  *A*.  0551 

CPFAG  =  CDF  A  GT*  TC*  CDP A  GO 

DLL  PATL  D  Lr”VITIV£S 

CL  PGA v  =  (  {  (-4.01  2*rACH*  7.273)  *MACH. -4.379 )  *MACH*.  9369)  *! TACH 
1  -.420 

CL A  CL A  =  (  (  (  (  (  (-4.  9  4-»L-10*A*  1.797£-7)  *A-u.  52  41-6)  *A*fc.  049E-5)  *A 
1  -2.  2  35E-5) *A-  1.  32 6 C- 1) *A- 1.72  2-3) *A+.99 

CLP0G~  -  {  (  (  (  (  (u  .  4  53  F-  13*  A- 5.  0  8  6F-6)  *  A  ♦  1.  Otcr-6)  *A~9.  0  4  9  E  -  fc )  *A 
1  ♦ 1. S85E-5) *  A  ♦  2. 109L-4) *  A*9. 36  4 2-5) *A ♦. 1329 

CLPDG  A  =  (  (  {  (  (  (2.  3  25E-  1 1*A-5.  324E-  10)  *  A-1. 6  89F.-8)  *A*4. 544E-7)  *A 
1  -3. 93bE-b) *A*5.3«L-5) *A+2.386E-4) *A-.00b75 

CL T  DF  j  =  CL?DGT*:C+CL?DG0 
CLP  V  =  (-.42)*  (,9Jb)  *CLACLA*. 995+CLPD9G 
TFI-  n  =  2*  (Z/=)  *  (7-C?)/3 
I p  ( 7 E F  " .  L T . 2 . )  TFFM  =  -TERF 

C  L  n  =  C  L  ?  » ♦  . 5*  (-. 71  4) *.234*.  155*T  ERM* (-.181) 

KM(  ((  J  (4.7  22L-3*A-1.e3E-b)  *A*u.235E-6>  *  A  *.  000  52  09)  *A- 
1  .  0  7=9)  *  A  ♦.  00723)  *A*.C87)  *A+1.00 

C  Y  P  *  =  K  *  (-.  06*CL)  ♦  .  16  1 
CY  F  =  CY ?'•!♦?*  (  (Z-Z?)  /B)  *  (-.181) 

CNP*  =  -CL  P  *TA  ti  (At.  AD)  -  K*(-CLP*TAN  (ARAD)  ♦.  1003*  CLIFT) 

CNF=CVrw-  (2/3)  *(LD*COG  ( A R AD)  *Z P* 5 IN ( AR A D)  ) * ( ( Z- ZP) /B) *  (-.  1 8  1 ) 

RA^F  (F)  D£HIV:tJVES 

CLFW  -  CLIFT*.  24  U.  901079 

CL  F  =  CLFW  -  (2/  (3 *  * 2)  )  *  (LP*COS  (ARAD)  ♦ ZP*S1 N  (ARAD)  ) * Z*  (-.  181) 

CD  3  =  CDFAGO-  (CLirT**2)  /(6.04*PI) 

C N F  V  -  -.02*CLI’T**2-. 32*CI3 

CNF  =  C  ;j  F.  W  ♦  (2/  (3*  *2)  )  *  (  (LP*CCS  (ARAD)  *Z  P*SI  N  (  A  F  AD)  )  *  *2 )  *  (-.  1  8  1 ) 

C  Y  r  =  0 


LDD01110 
LDDO  1120 
LCE01 130 
LDDO  1140 
LDDO 1150 
LDD01 160 
LDDO 1 170 
LDD01 180 
LDDG 1 190 
LDDO 1 200 
LDDO 12 10 
LDDO 1220 
LDDO 1230 
LDDO 1 240 
LDDO 1 250 
LDDO 1260 
LDDO 1270 
LDDO  1280 
LDDO  1290 
LDDO 1 300 
LDDO 1310 
LDDO 1320 
LDD01330 
LDDO  1340 
LDEQ1350 
LDDO 1360 
LDDO 1 370 
LDDO  1  380 
LDDO 1390 
LELO  1400 
LDDO 1410 
LDE01420 
LDDO  1  43G 
LDDO 1440 
LDDO  1450 
LDDO 1460 
LDDO  1470 
LDDO 1480 
LDDO 1 490 
LDDO 150C 
LDD01510 
LDDO  1520 
LDC01530 
LDDO  1540 
LDDO 1 550 
LDDO 1560 
LDDO 1 570 
LDDO 1580 
LDDO 1590 
LDDO 1 600 
LDDO  1610 
LDDO 1620 
LDDO  1630 
LDDO 1640 
LDDO 1650 
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FILE:  I.l'DV: 


F  U  F  T  ?  A  !< 


PRINCETON  UK  I  V  EPS  IT  Y  TIME-SHAPING  SYSTEM 


r 

C  COMPUTE  C.)r'r  FTC  IFNI  S 


CY  =  C  Y 0  ♦  C Y  B*  B FT  A  ♦  CY  DE  *  D  R  *C  Y  C  A  *  D A  ♦  ( C  Y  P*  X  ( 3 )  +C  Y  l*  X  ( 1 )  )  *  LV  (2*  VL'L) 

CN  =  C  K 0  +  C  N E  * E  E T  A  * C  N  DP  * 0  L  +■  C  U D  A*  D  A ♦  (Clip*  X  (  3 )  +  C  N  Z.  *  X  (  1 }  )  *B/  (2*VLL) 

CL  =  CL9*CLD*Pr  TA  +CLDE  *  DK  *C  LEA*  CA  ♦  {C  L  P  *  X.  (  3  )  +  CLZ  *  X ( 1 )  )  *5/(2*  Vr.L) 

C 


C  COMPETE  STATE  “AILS 
C 

C  THF  STATE  FATES  AFF  CALCULATED  IN  THE  FOLLOWING  CIDEF: 

C 

C  DX  ( 1 )  -  P  COT  (FAD/SEC* *2) 

C  DX  ( 2)  2 DOT  (5  AD/S  EC) 

C  D X  (  3 )  -  PDOT  (  RAP  /SEC  *  *  2) 

C  DX  ( 4)  -  PHIDOT  (RAD/SEC) 

C 

DX  ( 1 )  =  (DYNFPS*S*B*CN) /IZ 

D  X  {  2)  =  (-X  (1)  *UV  2L+  X  (3)  *’.«’  +3PAV  *CCS  (  F  P  A )  *SIN  (X  (4)  )  * 

1  (DYNPRS*S*CY) /(MASS) ) /VEL 

D  X  (  3 )  =  (DYNP«S*5*3*CL) /IX 

DX  (4)  =  X  (3)  +  (  D  *  S I  N  {  X  (4)  )  +  X  (  1)  *  C  0  S  (  X  (4)  )  )  *TAN  (FPA) 

C 

C  END  0s  NOKLINrAE  !•  ;V|  A  TICK  OU  3  ROUTINE 

C 

C 

” 

■  • r> 


LDDO  1660 
LDDO 1670 
LDDO 1630 
LDDO  1  C  70 
LCD01 700 
LDDO  17  1C 
LEE01720 
LDDO 1730 
LDDO 1 740 
LDD917S0 
LDDO 1760 
LEEO  1770 
LDDO  1780 
LDDO 1 790 
LDDO  1800 
LDD01810 
LDDO 1820 
LDDO 1 3  30 
LDDO 1 840 
LDDO 1850 
LDE01S60 
I DDO 1 370 
LEEO 1 S80 
LDD01 990 
LDDO  1900 
LrD01910 
I DDJ1920 
LDDO  1930 


FILE:  FANDC  FORTRAN  A 


PRINCETON  UK1VEFSITY  TINE-SHARING  SYSTEM 


THIS  PKOoR  AM  GEN ZF  AT  S3  F  AND  G  MATRICES  FOR  DIFFERENT  FLIGHT  CONDITIONFANOOOIO 
THE  FLIGHT  CONDITION  IS  SPECIFIED  BY  ANGLE  OF  ATTACK, 

SETTING,  TC,  AND  VELOCITY,  VEL. 


A,  THROTTLE 


SUBROUTINE  F AN DG ( A , TC , VEL , A LT , X , U , F , G , H X. H U , I OUT) 

DIMENSION  F  (4,4)  ,G  (4,2)  ,  X  (4)  ,  XT  (4)  ,  DX  (4)  .  DX  1  (4)  ,HX  (2,4)  ,  YPLUS  (2) 
1  YMINUS  (2)  ,U  (2)  ,H!J  (2,2)  ,UT  (2) 

REAL  NR 

CO M MON/C NT RL S/DP , DA 

COHHON/CYCCEF/CY ,CYP,CYB,CYDR,CYDA,CYP,CYR 
COMMON/C  NCOEF/CN,CN0,CNB,CNDR,CNDA, CNP, CNR 


151 


I  E  L  X  = 

On  1r  1 
D"  10  1 
XT  (151)  = 

XT  (IS"  )  " 

CALL  D.'O'i 
XT  (15.-)  = 
CALI  P  ND  Y 


:  j  i  =  i ,  a 
151  =  1,4 
X  (15  1) 
X  (150 

(  ,  A  ^  f 

Y  (  J  S  .) 

4  A  »  5  J , 


♦  .  5  * 

'IP.  ALT, 

-  .  5  * 


X  I, J , DX) 
LELX 


D' 


1 1 


J  XL,  ALT,  XT,  I,  DX  1) 


152=  1,4 


152 
1  50 


F  ( 1  5  2 , 1  r-  0 )  = 

CC  NTI  Vi  r. 


(DX  (I  r-2)  -  DX  1  (152)  )  / D E L X 


C0“ PUT  F 


us:  i 


FFFT'UCATION  METHOD 


DELU  =  .  1 

DO  153  152=1,2 
DO  154  Ir4=1,2 
154  UT(I5«)  ="  (154) 

UT  (15  3)  ='J  (15  3)  ♦.  5*DI  L'J 

CAL!.  DNDYN  (A,TC,  VLL,  ALT,  X,  UT,  LX) 

UT  (153)  =’J  (15  3)  5*1  EL  J 

CALL  DNDYN  (A,TC,  VEL,  ALT.  X,  UT.DXI) 

DO  155  1  155=  1,4 


FAN00020 
FAN00030 
FA  NO  004  0 
PAN00050 
FAN00060 
PAN00070 
PAN00030 
FAN00090 
FAN00100 
PAN301 10 


COM MON/CLCC EF/CL , CLC ,C 

L3,CLDR,CLDA,CLP,CLR 

FANOO  120 

100 

FORMAT  (•  0* 

, 'THE  FOLLOWING  F, G  AND  H  MATRICES  WERE  GENERATED*) 

FA  N00  130 

101 

v3  F  M  AT  (  *  • 

, » under  THE 

FOLLOWING  PLIGHT  CONDITION:*) 

FANOO  140 

102 

FOP  MAT  (•-  • 

, 10X , *  ANGLE 

0°  ATTACK  =  • , F5. 2. *  DEG 

*) 

FAN00150 

103 

FORMAT  ( '  ' 

, 10X, ' THROTTLE  SETTING  =  ',F6.4) 

FANOO  160 

104 

FORMAT  ( '  • 

, 10X, *  7 E LOCI 

TY  =  *  ,  F8.  4  ,  '  FEF.T/SEC  ' ) 

PA  NO 0 1 70 

105 

?0  F  M  A"  (  '  • 

,  1  OX,  '  ALTITUDE  =  ',Fll).3,'  Fr-ET') 

PANOO  180 

106 

FOF  MAT  ('  -• 

, *r  EQUALS  :  * 

,47a, *G  EQUALS:*) 

FAN00190 

107 

FORMAT { • O' 

,  4F1  0-  3,  13.X, 

2F1 0- 3) 

FANOO  200 

108 

FOP  MAT  ('  -• 

, *HX  EQUALS: 

*  ,  46X,  '  HU  EQUALS:  *) 

FAN00210 

109 

FOF MAT  ( • O' 

, *  LET  (?)  EQUALS: ' ,F10. 3) 

FAN00220 

1  1C 

FOP  MAT  (•  -  » 

CYO 

CYC  CYDR 

CYDA  *  , 

FAN00230 

1 

'  CY° 

C  YD  '  ) 

FAN00240 

1  11 

FOF  MAT  ('  -' 

,  '  C  N  > 

C  N  3  CNDF 

CNDA  *, 

PAN00250 

1 

•  r-%’  -> 

CNU  •  ) 

FANOO  260 

1 12 

FC  ?  MAT  ('-* 

,  '  C  L  0 

CL  Ps  CLDF 

CLDA  *  . 

FAN00270 

1 

»  r> 

CLP') 

P  AN  00  280 

113 

FOP  MAT  ('O' 

,G  (L  ».  3 , 2 X )  ) 

FAN00290 

- 

FAN00300 

C  CC 

M  PUT  r  F  "  GIN 

;  PLOT D  3ATI 

ON  METHOD 

FAN00310 

FA  NO  0320 
FAN00330 
PA  N00340 
FAN00350 
FANJ0360 
FAN00370 
FAN0038U 
FANOO  390 
PAN00400 
FAN0041C 
FAN00420 
FAN00430 
FAN00440 
FA  NO  0450 
FAN0D460 
FAN00470 
PAN''  0  480 
FAN00490 
FANOO  500 
FAN00510 
FAN00520 
FAN00530 
FAN00540 
FANOO  550 
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FILE: 


PA  JOG 


FORTRAN  A 


PRINCETON  UNIVERSITY  TIME-SHARING  SYSTEM 


1551  G  (155,153)  =  (DX  (155)- DX  1  (155)  )  /DELU 
153  CONTINUE 
C 

C  COMPUTE  HX  USING  PERTURBATION  METHOD 
C 

DO  155  155=1,4 
DO  156  156=1,4 

156  XT  (I56)=X  (156) 

XT  (155)  =  X  (155)  ♦.  5  *  D E L X 
YPLUS  (1)  =XT  (  3) 

YPLUS  (2)  =XT  (2) 

XT  (155)  =X  (15  5)  -.5*DELX 
YHINUS  ( 1)  =XT  (3) 

YMINMS  (2)  =  X T  (2) 

DO  157  157=1,2 

157  HX  (157,155)  =  (YPLUS  (157)  -  YUNUS  (157)  )  /DELX 

155  CO  NT  IN 'O 

C 

C  COMPUTE  h'i  USING  P  l?.Z  URL  ATION  METHOD 
r 

DC  153  158=1,2 
DO  159  150=1,2 

159  T’~  (I5'<)  =u  (T  59) 

'JT  (15.-)  ='J  (158)  +  .  5* DELU 
YPLUS  (1)  =>:  (3) 

YPLUS  (2)  =  X  (2) 

U?  (158)  =  'J  (153)  -.  5*DELU 
YMI  N't,  (1)  =7  (3) 
ymisug  (2)  =:•:  (2) 

L"“>  It' :>  0=1,2 

160  (I6\  :c‘->)  =  (YPLUS  (It.")  -Y  MINUS  (160)  )  /.05 
15^  I  0  MINUS 

u  calcjla::  Dr:u:- min\nt  of  f 

r* 

call  (4,f,:ftf) 

S  OUTPUT  FLI..HT  CONDITION  A'!y  F  AND  G  MATRICES 
C 

i P  ( i o u - .  Ni.  i)  to  ; 

WR  ITF  (6  ,  10  0) 
w  r  I  T  E  ( t, ,  1  C  1 ) 

-  I  T  E  (6,  10  2)  A 
•  FIT?  (o,  103)  TC 
WP  ITE  (  6, 104) VEL 
WPITE (6,105) All 
WRITE (6, 106) 

DO  161  If  1=1,4 

"61  WPITE  (6,  107)  (F  (It,  1 ,162)  ,  lb 2=  1,4)  ,  (G  (161,163)  ,163  =  1, 2) 

HP ITF  (6,  1C  7)  DEI F 
HPITI  (b,  10&) 

D°  164  164=1,2 

If  4  '*?  ITF  (6  ,  10  7)  (HX  (16  4, 165)  ,  16  5=  1,4)  ,  (HU  (I  64,166)  ,166=1,  2) 

6 CO  PET URN 
?N  *" 


FAN00560 
FAN00570 
FAN00580 
FAN00590 
FAN00600 
FAN00610 
FAN00620 
FAN00630 
PAN00640 
FAN00650 
PAN00660 
PAN00670 
FAN00680 
FAN00690 
FAN00700 
FAN00710 
FAN00720 
FAN00730 
FAN00740 
FAN00750 
FAN00760 
FA  NO  0770 
FAN00780 
FAN00790 
FAN00800 
FAN0081C 
FAN00820 
FA  N00  830 
PAN00840 
PAN0085 0 
FAN00860 
PAN00870 
FAN00880 
F  A  NO  0  890 
FAN  00900 
FAN00910 
FAN00920 
PAN0093C 
PA N00940 
FAN00950 
FAN00960 
FA  NO  097  0 
FAN00980 
FAN00990 
FAN0  1000 
FA  N01 010 
FAN0  1020 
FANO 1030 
FA  NO  1  04 0 
FA  NO  1 050 
PA  NO  1 060 
FANO  1070 
PA  NO  1 080 
FANO  1090 
FANO  1  100 
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PILE:  STM 


FORTRA! 


PRINCETON  UNIVERSITY  TIME-SHARING  SYSTEM 


C  STHQ001 0 

C  THIS  SUBROUTINE  COMPUTES  THE  STATE  TRANSITION  MATRIX  POR  A  SYSTEM  STH00020 

C  SPPCI FI  ED  3 Y  THE  MATRIX  A  AND  THE  TIME  STEP  T.  IT  ITERATES  TO  STH00030 

C  FIND  A  SOLUTION  WHICH  CONVERGES  TO  WITHIN  .U  AFTER  KEND  ITERATIONS.  STN00040 

C  THE  STATE  TRANSITION  MATRIX  IS  THEN  PLACED  IN  PHI.  STM00050 

C  STH00060 

SUBROUTINE  STK  (ORDER ,  A  .  T  , HEAD, PH I, OUT PUT)  STH00070 

INTEGER  ORDER, OUTPUT  STM00080 

DIMENSION  A  (CPDEP, ORDER)  ,A1  (12, 12)  ,A2  (12, 12)  ,  STH00090 


1  A3  (12,  12)  ,IDEN  (4,4)  ,  PHI  (OR  EER  ,OR  DER)  , 

ST  MOO  100 

2  PHI1  (12,  12)  .TEMP  (12,12)  ,T1  (4,4)  , 

T2  (4,4)  ,73(4,4) 

STN00110 

REAL  IDEN 

STH00120 

100 

FORMAT  • ***WAPNING-THE  STATE  TRANSITION  MATRIX  DID  NOT*) 

STM00130 

101 

»OF.  MAT('  'CONVERGE  IN  THE  ',12,'TH  ORDER***') 

ST  MOO  1 40 

102 

FCFMA7  (•-•,• TER  STATE  TRANSITION  MATRIX  CONVERGED  IN  *.I2, 

STM00150 

1  • TP  CPDEP' ) 

STH00160 

103 

pOFMAT THE  STATE  TRANSITION  MATRIX  IS 

AS  FCILOWS:*) 

STM00170 

100 

EOF  MAT  ('  0*  ,  1 J  (2X,  F3.  3)  ) 

STMOO 180 

C 

STM00190 

C  INI 

TIALITE  IDENTITY  MATRIX  TC  THE  ORDER  OF  THE 

SYSTEM 

STH00200 

c 

STH00210 

DO  2f  ^  1=1, CEDE? 

STMOO  220 

DO  2C1  .7=1, CRD  ED 

STM00230 

IDEN  (I  ,  .7)  =  7. 

STM00240 

201 

CD  .NT  1  no 

STM00250 

200 

CO  VTI N U  v 

STM00260 

DO  20  2  1  =  1  ,  C  F  D E 0 

STM00270 

IDEN  (I, I) =1. 

STM00280 

202 

CONTIS.;-' 

STMOO  29C 

C 

STM00300 

C  INI 

TIAIIZE:  PHI  =  I 

STM00310 

r 

A  1  =  A  *  T 

STH00320 

C 

A  3  =  I 

STM00330 

C 

STMD0340 

DO  2r'  3  Isl.CFT'E" 

STM00350 

DO  20-4  .7  =  1 , 0 R ” 

STMOO  360 

?•;:  (I ,  J)  =  i n e n  (i  ,c<) 

STM00370 

A3  (I  ,.7)  =IDEN  (I,C) 

STM00380 

A  1  (I  ,J)  =  A  (I ,J) *7 

STM00390 

2  04 

CONTI  HU 

STM00400 

203 

C  n  *  •;  m  l 

STMOO  4 10 

n 

STH00420 

Z  START  1C'  ■>  T r  CC  VVERS  V  TO  STATE  TRANSITION  MAT 

FIX 

STM00430 

r* 

STB00440 

do  20S  K=1,K!ND 

STM00450 

c 

STH00460 

C  A2 

=  A  *T/t' 

STM00470 

STHO  0480 

DO  2C6  1  =  1  ,  C  h  D  £  r- 

STH00490 

DO  207  J  =  1 , CFDEP 

STM00500 

A  2  (I  ,J)  =  A  1  (I  ,J)  /FLOAT  (Y) 

STM00510 

207 

CONTI NU E 

STM00520 

206 

cr ntinu: 

STMOO  530 

C 

STM00540 

C  A3 

=  ( A  *  *  v  )  *  ( T  *  *  K )  /K  7 

STM0055C 
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PILE:  STM 


PORTPAM  A 


PRINCETON  UNIVERSITY  TIME-SHARING  SYSTEM 


c 

STH00560 

DO  203  1=1, ORDER 

STHO  0570 

DO  209  J=1 , ORDER 

STM00580 

DO  210  L=1, ORDER 

STM00590 

TEMP  (I,  J)  =T£MP  (I,J)+A3(I,L)*A2(L,J) 

STH00600 

210 

CONTINUE 

STH00610 

209 

CONTINUE 

STH00620 

208 

CONTINUE 

STM00630 

DO  211  1=1 , CFDE0 

ST  MO  0640 

DO  212  J=1  ,  OF.DEF 

STH00650 

A3  (I,  J)  =TEM?  (I  ,0) 

STM00660 

TEMP (I, J)  =0 

STM00670 

212 

CONTINUE 

STM00680 

211 

CONTI NUL 

ST.M0069C 

C 

STH00700 

C  PH  I  1  =  I  +  AT  ♦  (A**2)  *  (T**2)  /2 !  ♦  .  .  .  (TO  KTH  OFDEP) 

STM00710 

- 

STH00720 

DO  213  I = 1 , CFDS? 

STM00730 

DO  214  J= 1 ,CF  LEF 

STM00740 

PHI1  (I,J)  =  ?HI  (I,  J)  +  A3(I,J) 

STH00750 

2  14 

CONTINUE 

STM00760 

213 

CONTI  N’J  I 

STM0077  0 

- 

STM00780 

C  IS 

THE  Ef  F  OR  LESS  THAN  OS  fUUAL  TO  .  U? 

STH00790 

c 

STMOO  800 

EP  F  OS  =  9 

STH00810 

DC  215  I =  1 , C  FDE? 

STH00820 

EFIOF=E?  ECR  +  (PHI  1  (I  ,1) -PHI  (I  ,1)  )  **2 

STH00830 

215 

CC  NTIN'J  E 

ST.M00840 

IF  (Er.FOF.L2.  (.21))  GOTO  219 

STH00850 

c 

STM00860 

C  PHI 

<--  Dill 

STMOO  870 

STH00880 

DC  2  1'.  1=1,  CEDE? 

ST.MO  0890 

DO  21i  j  =  i#c,f:2'j 

STM00900 

PHI  (I,  J)  =P;:1 1  (I,J) 

STM009 1 0 

2  17 

CONTI  N  U  ■' 

STM00920 

216 

CONTI  NU | 

STM00930 

205 

CO  N  TI  N  n  z 

STN00940 

STH00950 

~  FND 

0”  CONVERGENCE  LOO? 

STM00960 

C 

STM00970 

1= (OUTPUT. NE. 1)  GOTO  219 

STM00980 

VP  1 T  E ( 6 ,  101) 

STM0099C 

WRITE (6,101) « 

STM01000 

GOTO  219 

STMO  1010 

2  18 

IP  (OUTPUT.  NL.  1)  GOTO  2  19 

STHO  1020 

WPITF (6, 107) Y 

STMO  1030 

219 

DO  220  1=1, ORDER 

STHO  1040 

DO  221  0  =  1  ,  CF DE° 

STHO  1050 

PHI  (I  ,J)  =  P  h  1 1  (I,  J) 

STMO  1060 

221 

CO  NT  I  Nil  H 

STM0 1070 

2  20 

continue 

STHO  1080 

IF  (OUTPUT.  NE.  1)  GOTO  900 

STMO 1 090 

WRITE (b, 109) 

STMO  1 100 
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FILE:  STM 


FORTRAN  A 


PRINCETON  UNIVERSITY  TIME-SHARING  SYSTEM 


DO  300  1=1, ORDER  STM01110 

WRITE  ((,  104)  (PHI  (I,  J)  ,  J=1, ORDER)  STM01120 

300  CONTINUE  STHO 1130 

900  PFTOI N  STM01140 

END  STM01150 
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FILE:  CFF  FORTRAN  A 


PRINCETON  UNIVERSITY  TIME- SHAH  INS  SYSTEK 


SUERC'JTI  NF  CEH  {NF,  F,  NS,S,  T,  PH  I  .  G  A  H  ,  T  1 .  T  2,  T  3,1  DEN  ) 

DIFFUSION  F  (t!F,NF)  ,  G  (N'F,N3)  .PHI  (NF.NF)  ,GA.1  (NF.NG)  ,T1  (NF.NF)  . 
1  T2  (N?  ,  NF)  .13  (NF,  NF)  ,IDEN  (NF,  NF) 

PEAL  IDEN 

ro  io  1=1,4 
DO  20  J=  1 , N  F 
20  IDEN (I, J) =0. 

10  CONTINUE 

DO  30  1=1,  NF 
3n  IDEN  (1,1)  =  1 . 

CALL  SMPLY (NF, F,NF,T,T1) 

CALL  1COPY  (N?,T1,T3) 

DO  100  1=1,10 
X  N= 1 ./FLOAT  (12-1) 

CALL  S:i?LY  (NF,T3,SF,XN,T2) 

CALL  3  .IDLY  (N?,T2,Nr,-1.,T2) 

CALL  M.  ADD  (Mr  ,  ID-N  ,  N?,T2,T2) 

100  CALL  MPLY  :S?,T1  ,  .IF,  T2,  NF,  T3) 

CALL  FW.?LY  (Lp,  ?VI,NF,?2,  N?,T3) 

CALL  y  HPLY  (NF,T3  ,  NF,«,  N  J,  SAM) 

CALL  SHP1Y  (  N  ^  ,  LAI  ,NG,T,CAH) 

F  r  ij  ’» •• 

*'  N  L 


CEH0001 0 
CEH00020 
CEH00030 
CEH00040 
CEH00050 
CIH00060 
CEH00070 
CEH00080 
CEH0009C 
CEHOO  100 
CEHJ0110 
CEHOO  12C 
CEH00130 
CE  HO  0 1 40 
CEHOO  ISO 
CEH00160 
CEHOO  1 70 
CFH00180 
CEHOO  190 
CEH00200 
CEHOO 2  10 
CEMD0220 
CEHJ0230 
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PILE:  FKINT 


FORTRAN  A 


PP  INC ETON  UNIVERSITY  TIMI-SHA  RING  SYSTEM 


C 

c 

C  THIS  SUBROUTINE  DOES  A  NON  LINEAR  SIMULATION  USING  THE 
C  PUNSA-KUTTA  INTEGRATION  TECHNIQUE 
C 

SUBROUTINE  RKI  NT  ( A  O.A  ,  TC,  V  E  L  ,  A  LT.  CB,  C?,CI. XT, UT) 

DIMENSION  VC  (8,1)  ,C3  (2,4)  ,CF  (2,2)  ,CI  (2, 2), Cl  (1  1  ,  1)  ,  A1  (  1 1 , 3)  , 

1  A  2  (3, 18)  ,  A  (14  ,8)  ,X  {4,  1)  ,XNEW  (4)  ,  XOOT(4)  ,  U  (2, 1)  ,  02  (2)  ,  UOUT  (2)  , 

2  DY  (2,  1)  ,  DYT  (2, 1)  ,DX  (4  )  ,  D£LX1  (4)  .DLLX2  (4)  ,DELX3  (4)  ,  XT  (4)  ,0T  (2)  , 

3  DELX4  (4)  .TEMPI  (2,  1)  ,C  2  (3,  1)  ,FC1  (3,  1)  ,FC2  (  18,  1)  ,Q0  (4)  ,Q1  (4)  .02  (4) 

4  03  (4)  ,04  (4)  ,X1  (4)  ,X2(4)  ,  X3  (4)  ,X4  (4)  ,X0  (4) 

COM MON/C YCCEF/CY.CYO ,CYD,CY DR  ,  C  Y  DA  ,  C  Y  P,  CY  fi 
COM  MG  N/C  NCC  E  F/C  N, CNO, CNB, CND E , CND A, C NP, CNF 
COMMON /CICCEF/CL.CLO.CLB , CL DR , C LDA , C I F, CL fi 

910  "OPMAT  INPUT:  SECONDS  FCfi  TIME  HISTORY  (INTEGER)') 

I S I  C-  5 

ITFfi=10*:SFC 
I  o  U  T=  I  7  LI-/0  0 
I N  D  CTr  =  ^ 

c  input  com  man:  VECTOR 
c 

903  PC PMAT  INPUT;  COMMAND  VFCTOF  -  (Y1,Y2)') 

DY  (1,  1) =10. 

DY  (2,  1)  =0. 

6  OR  DO  11r  1  =  1,2 

115  EY  (I, 1 )  =  TY  (1,  1  ) *3.  14159/130. 

c  inpu"-  :n:~;ai  cr  edition 

DO  1 1 1  1=1,4 

no  x  (i ,  i)  =x:  (:  j 

c 

C  COMPUTE  INITIAL  CCNTIC: 

c 

CALL  MMOLY  (2,C-,2,DY, 1,U) 

DC  1121=1,2 

112  U  (I  ,  1)  =U  (I  ,  1)  ♦UT  (I) 

C  SET  TIM"  AND  TIM?  ST  I  P 

r 

TIME  = ' . 

TST  ? r  =  .  1 

304  FOR  MAT  ( '  '  ,  'TIME'  ,  4  '  YAW  F  A  T  E  •  ,  3  X  ,  •  SI  D  ES  LI  P  '  ,  3  X  ,  •  ROL  L  RATE', 

1  IX.'FCLL  A  NGLE ' , 3X,  ' RUDDER 5X, • AILERON' ) 

8  05  FCF  MAT  (  •  '  ,  • - •  ,  4X.  • - »  ,3X,  • - '  ,3X  ,' - •  , 

1  IX,' - '  ,  3  X  ,  ' - '  ,  5X,  * - ') 

606  PC  FMAT ( *  •  ,  F5. 2 , 6  (3  X ,  P 9 .  3  )  ) 

*15  FORMAT  ('-'  ,'NGNT.  INIAJ  TIME  HISTORY') 

916  PCFMAT ( ’ O' , ' ALL  OUTPUT  IN  LEGPFtS  OR  DEG/SEC ' ) 

WRIT!  (6,910) 

V  DT  Ti  (  6  ,  Q  1  *) ) 

WR ITE  (6 , 904) 

W  °  T  7 L  (6 , 90  5) 

DC)  120  1=1,4 


RKI00010 
RKI00020 
RKI00030 
RKI00040 
RKI00050 
PKI00060 
RKI00070 
RKI00080 
PKI00090 
, R  KI00 100 
RK 100  1 1 0 
RKI00120 
RKI00130 
RKI00  140 
FKI00150 
RK 100 160 
PKI00170 
RKI00  180 
RKI00190 
PKI00200 
RKI00210 
PKI00220 
RKI00230 
R  K 1 0024  0 
RKID0250 
PKI00260 
RKI00270 
RKI00280 
RKI 00290 
RKI00300 
RKI00310 
RKI00320 
RKI00330 
RKI00340 
RKI00350 
RKI00360 
RKI00  370 
FKI00380 
RK  10  0  390 
RKI00400 
PKI00410 
RKI00420 
RKI00430 
RKI00440 
R  K 1 0045  0 
RKI00  460 
RKI00470 
RKI00480 
R  KI00490 
RKI00500 
RKI00510 
PKI00520 
RKI00530 
RKI00540 
RKI00550 


FILE:  RHINE 


FORTFAN  A 


PRINCETON  UNIVERSITY  TIME-SHARING  SYSTEM 


120 

XOUT  (I)  =  (X  (1,1) -XT  (I)  )  *13  0./3.  1415  0 

RKI00560 

DO  122  1=1,2 

RK 100  570 

122 

OOUT  (I)  =  (U  (1 , 1)-UT  (I)  )  *180./3.  14  159 

R  KI00580 

WRITE  (6,806) TIME,  (XOUT  (I)  .1=1,4) ,  (UOUT  (J)  ,J  =  1.2) 

BKI00590 

DO  130  1=1,4 

R  KI00600 

130 

QO  (I)  =0. 

RKI00610 

C 

RKI00620 

C  ITERATE  TIME  HISTORY 

R  RI00630 

C 

RKI00640 

DO  200  K= 1 , ITLP 

R  KI00650 

INDCTR=1 NDCTR+1 

RKI00660 

C 

RKI00670 

C  P  EjI ME  NSI ON  X  AND  U  FOR  H3F  IN  DNDYN  SUBROUTINE 

BKI00680 

RK 100690 

DO  210  1=1,4 

RKI00700 

2  10 

XO  (I)  =  X  C,  1) 

RKI00710 

DO  212  1=1,2 

R  KI00720 

212 

U2  (I)  ='!  (1.1) 

RKI00730 

r* 

RKI00740 

C  DEI 

XI 

RKI00750 

C 

RKI00760 

CALL  DNDYN  ( A  CA  ,  TC  .  VE  L,  AL  T ,  X  0  ,  U  2,  DX) 

RKI00770 

DO  215  1=1,4 

RKI00780 

2  15 

DELX  1  (1)  =r:<  (I)  *TS  I  "? 

RKI00790 

DO  217  1=1,4 

RKI00800 

2  17 

XI  (1)  =  X*  (I)  ♦.  5  ♦D  C  LX  1  (I) 

R  K 1008 1 0 

C 

RKI00820 

C  DEL  X  2 

RKI00830 

c 

PKI00840 

CALI  p  N  5  Y ::  (  A  C  A  ,  T  C  .  7  E  L ,  A  L  T  ,  X  1  .  ’  1 2  .  D  X ) 

RKI00850 

DO  22"  1=1,4 

R  KI00860 

220 

DFLX2  (I)  =r  x  (T)  *137-? 

RKI00870 

DO  222  1=1,4 

RK 100  880 

222 

X  2  (T)  =  X  0  ( !  )  ♦.  5*01  LX2  (T) 

RKI00890 

C 

RKI00900 

C  DEI 

X  7 

RKI00910 

PK 100920 

CALL  1 N 0  Y N  ( A 0 A , T C , V E L , A L T  , X  2 , U 2 , D X ) 

P  KI00930 

jo  226  1=1,4 

RKI00940 

225 

DELX1  (1)  =DX  (I)  *7  ST  E  P 

R  KI00950 

DO  22 7  1=1,4 

FKI00960 

2  27 

X  MI)  -\r  (1)  ♦  L  E  Lv  7  (I) 

RK 100970 

C 

RKI00980 

C  DEL 

X  4 

RKI00990 

N. 

RKI01 000 

CALL  DNDYN  (ACA.TC,  VtL,  AL  T  ,  X  3, 1J2,  PX) 

RKI01010 

DO  230  1=1,4 

RKI01020 

230 

DEL  X4  (I)  =  DX  (I)  *ISTER 

PKI01030 

Do  232  1=1,4 

RK30  1040 

l  32 

X4  (T »  --X0  o  ♦  (1 .  /b.  )  *  (DLLX  1  (I)  *2*DtLX2(I)  ♦2*DELX3  (I)  ♦DELX4  (I)  ) 

RKI01050 

C 

RKIO  1060 

C  CCM 

PUTE  X  (  K ♦  1 ) 

RKI01070 

C 

RKIO  1080 

DO  2?"  1=1,4 

PKI01090 

235 

X (T, 1)  =X4  (I) -X  T ( I ) 

RKI01 100 
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c 

RKI01110 

C  COMPUTE  NEW  TIME 

RKI01 120 

C 

RKI0  1130 

TIHE=T STEP*  FLOAT (K) 

RKI01140 

c 

RKI01 150 

C  COMPUTE  NEW  CONTROL 

RKI01160 

C 

PKI01 170 

CALL  SHPLY  (2,C3,4,X, 1 ,  U) 

RKIO 1180 

CALL  KMPLY  (2,CF,  2.DY,  1.TEMF  1) 

RKI01 190 

CALL  MADD(2,U,  1,  TEMPI,  U) 

RKIO  1200 

DYT  (1,1)  =DY  (1,1)  *?IMF 

RKI01210 

DYT  (2,1)  =DY  (2,  1)  *  ?I  M  E 

FKI01220 

CALL  MM  PLY  (2, Cl, 2,  DYT,  1, TEMPI) 

RKI01230 

CAI!  MADD(2,’J,  1, TEMPI, U) 

FKI01240 

DO  237  1=1,2 

RKIO  1250 

237 

0  (I,  1)  =u  (I  ,  1)  +UT  (I) 

PKI01260 

DC  231  1-1,4 

PKIO  1270 

238 

x  (i,  i)  =:■:  c,  i)  +xt  (i) 

RKI01290 

C 

RKIO 1290 

C  OUTPUT  TIME ,  X,  AN?  U 

FKI01300 

A. 

RKI01310 

Ir  (TNDOTR.  NF.IO’JT)  GOTO  2rC 

RKIO  1320 

DO  240  1=1,4 

RKI01330 

240 

XCM7 (I)  =  (X (1 , 1)  -Ym (I)  )  *1 8C./3. 1415° 

RKIO  1340 

DC  24  2  1  =1  ,2 

FKI01350 

242 

not’T  (I)  =  (U  (1 , 1) -T.'T  (I)  )  *1  6  0./3. 1  4  1S9 

PKIO  1360 

WRITE  (6,8  )■')  TIME,  (XOUT(I)  ,1  =  1,4)  ,  (UOUT(J)  ,J=1.2) 

RKI01370 

INLCT"=  0 

RKIO 1 380 

2  CC 

CO  NT  I N  7 2 

RKI01 390 

e  1 1 

FORMA" AI'CTHF?  COMMAND  VECTOR?  ( 1  =  YLS , 0  =  NO)  ' ) 

RKI01400 

IF  (CY  (1  ,  1)  .  EC.  7.)  GOTO  610 

R  K 1 0 1 4 1 0 

DY  (  1,  1)  =3. 

PKIO 1420 

DY  (?,  1)  =:. 

R  K 10 1 43  0 

GOTO  800 

PKIO 1 440 

6  10 

17"  'i 

FKI01450 

Evr 

RKIO 1 460 
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Appendix  C 
CAS  SOFTWARE 

The  CAS  software  was  developed  to  implement  the  control  law 
for  actual  flight  testing  aboard  the  ARA.  The  software  had  the 
following  requirements:  accept  analog  inputs  on  aircraft  states 
and  pilot  commands;  update  the  gains;  compute  the  control  lev; 
and  output  commends  to  the  control  surfaces.  Ihe  whole  software 
package  was  limited  to  2fcK  of  RAK.  memory  in  the  Ricro-DFcS. 

Ihe  digital  flight  control  system  software,  pCAS  version  C, 
revision  $,  was  the  CAS  program,  tc  be  implemented  on  the 
microprocessor  and  is  presented  in  Table  IS.  The  software  was 
developed  by  altering  an  existing  program,  pCAS  version  4, 
revision  1  (Kef.  9).  It  wt.s  broken  up  into  four  sections--the 
data  stucture  declarations,  the  utility  routines,  the  control 
routines,  and  the  m.ein  program.  All  software  was  developed  using 
Fascal-hl . 

The  data  structure  declaration  section  set  constant  values 
used  in  hardware  initialization  and  control  law  calculations.  It 
also  declared  variable  types  (real,  integer,  array,  etc  )  as 
required  by  Pascal-F.T  . 

The  utility  routines  were  used  for  interfacing  the  software 
with  the  hardware  and  are  arranged  as  a  set  of  subroutines. 
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DELAY1C,  DELAY30,  and  WaitlSecond  created  delays  in  software 
execution  ci  1C  microsecond  s ,  3C  microseconds,  and  1  second, 
respectively.  COLDBOOT  initialized  hardware  (clocks,  interrupts, 
input  and  output  ports),  zeroed  gain  matrices  and  nominal  states, 
and  set  the  gain  schedules.  WARMBOOT  zeroed  the  controls  and 
armed  the  interrupts.  AnaTEST  enabled  the  operator  to  check  the 
A/L  and  L/A  converter  operation.  MDISP22  and  RD1SP24  displayed  2 
ty  2  and  2  by  4  matrices,  respectively.  MMPLY79  and  HMPLY71& 
calculated  a  single  gain  each  using  the  gain  index  and  the  gain 
coefficient  matrices  A1  and  A2»  respectively. 

The  control  routines  were  used  for  updating  the  gains  and 
computing  the  control  lav..  SETUP  entered  the  flight  condition, 
computed  the  flight  condition  vector,  and  computed  whichever  gain 
was  tc  be  updated.  It  also  entered  and  set  the  nominal  states  as 
required.  CONTROL  entered  tie  current  values  of  the  states, 
computed  the  perturbations  Iron  the  nominal  condition,  computed 
the  ccr.trcl  lav.,  and  sent  the  commends  to  the  control  surfaces. 

The  main  program  perforred  the  background  routine  for 
accepting  operator  inputs  and  performing  a  limite-d  number  cl 
tasks  including:  reinitializing,  halting,  or  breaking  the 

program  execution;  testing  the  A/L  ana  L/ A  operations;  and 
resetting  the  nominal  condition. 

The  program  could  operate  in  two  mod e s-- f 1 ight  test  or  ground 
test.  The  flight  test  mode  operated  by  accepting  operator  inputs 
and  outputting  short  messages  on  CAS  operations.  The  ground  test 
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ircdt  performed  the  flight  test  functions,  and 
various  steps  in  the  control  sequence  for  error 


it  also  executed 
checking . 
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Table  lb.  CAS  Version  O.S  Listing 


(tBamaBttaBtrtaiBBSBBaBBmitaaamaaaaaBBBBSBaBaaaBttmciamaaaiiimnBiBHnB 


S  pCAS-1  Digital  Flight  Control  Sofrnre  Systea  I 
VERSION  6.5 


Prograa  CAS  ; 


«Z  11700} 

m  «ooo> 

{«  M100} 


it  KIP  -  hardaare  9511 
Set  Proora  6RICW 
Set  location  of  Mfl 


<• 

(■ 

<« 


1.  MTA  STRUCTURE  DECLARATION 


•) 

» 

•) 


} 

} 

> 


<  - 
CWST 


. - . > 

1.1  Constant  declarations . ) 

. ) 


ADATA  «  (04; 

ACOKIWL*  (05; 

{  9511  data  port  > 

C  9511  control/statwt  port  } 

MMI 

H£loc 

FLPIoc 

ALRIoc 

RUDIoc 

SFPIoc 

DCIoc 

*  (3000; 

«  (3006; 

*  (300A; 

*  (3010; 

»  (3012; 

*  (3014; 

*  (3016; 

<  eenry  base  for  analog  board  } 

(  0/A  output  location-  elevator  } 

{  ailerons  D/A  } 

(  rudder  0/A  } 

ft 

prec 

<  for  the  of  TBWFLEX  display  > 

(  itafeer  of  significant  digits  } 

MS l 
ikHVtSI 
intCONT 
iJHMoc 

JMPGP 

«  (02; 

«  (03; 

*  M7^ 

«  (FFE3; 

»  *C3; 

<  task  for  priority  interrupt  corn 

<  enable  p.i.c.  } 

{  device  code  for  p.i.c.  > 

<  RST2  frot  p.i.c.  is  vectored  to  } 

<  this  location  by  UFN  proa  } 

<  6080/Z60  M>  opcode  } 

lZEROv 

rZEROv 

*  (7FF0: 

'  2047.0; 

{  integer  rep  of  0  volts  to  0/A  } 

(  f.p.  rep  of  0  volts  to  0/A  ((7FF) 

in2v 

v2out 

«  0.0046652; 

*  204.7; 

(  A/0  input  ")  volts  } 
i  volts  »*>  0/A  out  ) 

PCreq 

P8255 

P0RTC 

«  (92; 

■  (O; 

‘  *»l 

<  1/0  ports  ccanand  register  } 

<  loc  of  6255  control /status  port  } 

<  loc  of  6255  data  Port  C  } 

Tcontrol  «  (OF: 

TOcounter  »  (DC; 

Tlcounter  •  M0; 

<  titers'  control  tord  register  ) 

{  6253  titer  counter  aO  ) 

<  6253  titer  canter  >1  } 

Udata  •  (EC; 

Ucootr)  t  (CO; 

Unde  »  ME; 

Ucattand  •  *37; 

(  IMRT  data  port  naber  } 

{  UART  control/status  port  } 

(  IMRT  aode  instruction  feraat  } 

(  IMRT  coanand  inatroctian  fortat  } 

ON 

lero 

*  (0092; 

•  0.0; 

{  re  entry  point  for  UN  aonitor  ) 

THchan 

AOAchan 

VELcfian 

*  M 

*2^5 

* 

{  throttle  A/0  } 

(  anjle  of  am:V.  } 

(  velKity  } 

RSTchw 

P&chan 

*  *i 
■  7; 

C  roll  Stic*  } 

{  pedals  ) 

177 


{siiiiii:stiiiiai8iitaiiiiiiiisii>i:ti:itisi:3:iexMBeastEa:s:ssi:s:ssti:s:cs} 


BEGIN 


{  GAS  > 


diptr  i*  iJf’loci 
chptr*  t«  djHJWP); 
inrptr  i*  iJFIoc+lt 
intptr*  ««  ord(  addr(CONIROl) 

Cl  i*  atfrtCWIN): 

CO  i*  addriOMUTIf 

<OldbOOt{ 


>i 


REPEAT 


Read!  CCIJ,  Coachar  >; 
CAGE  CoKkar  OF 


<  Set  interrupt  /iap  ) 


<  Define  addresses  for  > 
{  -  Redirected  I/O  > 

(  Initialize  fcardeare  > 


(«  MAIN  COMMA  LOOP  •) 
(  Wait  for  a  coeeind  > 
{  Interpret  the  coenand) 


'A'  t 
T  t 
T  i 
'H'  t 
'R'  i 


V 


araTEST: 

DLD£<  «F3  /  K3/IVH  ); 
earetoots 

eriteln(  CC03,  LF,CR,  'CAS  offline!’  >; 
«»  flo  »>  It 

eritelnCCCOlfCRy'RESET  IOC!!') 


ml* 


ELSE 

BO  {  case  ) 
WTIL  Gonchar  ■  *H'  { 
DLDC(  BF3  /  Vi  ) 

DO.  {  CAS  ) 


END 

BEGIN 


BO 


eriteln([CQ],LF,CR,'lf>  MO  MOD: 
erite  iCCO!,  «»'“  HOC  **')} 
eaitlsecond 

eritelnl  CG03,  CR,badn  ); 

eaitlsecondt 

eernboot 


{  If  'HALT'  then  exit  > 
<  prograa  and  halt  ZBO  > 


^■ccBiiaitciazaaaatttcatBztizaittcccitttaBtatKitiBXtBttcaaiaiaciitiBBatiBBaBt} 

. . .  FOBS  !!! 

{zaci:::citctcct::titiBti:aiitBBtcttctc:ct3B8ict3BBBiBB>caBB:BttiBBimtiBBBc} 


i 


% 


<« 

<» 

u 


2.  CAB  Utility  Subroutines 


•) 

«> 

») 


< . 

( . 

< . . 

Procedure  DBAY10; 

SEC  IN 

1NLDC«E3/<E3) 


2.1  Software  belays - - 

{  delay  10  microsecs  > 


Procedure  KLAY30;  (  delay  30  oicrosecs  > 

8GCD4 

MJ*(»E3/«E3/»E3/tt3/«a/iE3) 

M; 

Procedure  WaitlSecond; 

WAR  i  j  integer) 

BIN 

FOR  i  :«  1  TO  9999  bO  delayQO 
BO;  <  UaitlOsec  > 

. - . 

< - - 2.2  Comole  I/D . . . 

Procedure  G9CUT<  ch  :  char  ); 

BIN 

While  IifutlUCDMIU  l  <0001  «  0  10  delaylO; 
OutputOMTA]  >«  ch 

DO; 


> 

> 

> 


Function  CflNIN  i  char; 

WAR  chin  t  char; 

ich  i  integer; 

KaGIN 

While  IjfutClKHnaJ  l  <0002  *  0  DO  delaylO; 
ich  **  ordl  InuurtUOATAJ  l  I7F  ); 
chin  t«  chr(  idi  ); 

toil#  IiwtCUDMO  4  <0001  •  0  DO  delaylO; 

OutputftlMTA]  t*  chin: 

OWN  :•  chin 

BO; 

{ . 

( . — . —  2*3  Pragma  Initialization  - . — . 

Procedure  O0LM0BT  ; 

m 

intewr; 
testmode  j  char; 
cptr  t  •char; 

BIN 

OutnutCINTCONT]  «■  chrliHASX);  <  mask  interrupt  controller  ) 
DU*<  WD/M6  I;  {  set  MO  interrupt  mode  0  ) 

DISABLE; 

OutputtTCONTHU  f  chrl  Gd  h  {  initialize  TIIERO  > 
OutputCTOCOUHTBU  i*  chr<  <0A  It 
OutputtTOCOUffHO  »•  chr(  <00  >» 
delaylO; 

Out  putt  TCOWTTOU  i>  chr(  <74  );  <  initialize  TDCR1  > 
•utputmautmo  t«<hr(  »10  I; 

Output!  T I COUHTBO  «*  chrl  <27  ); 
delayOO; 

0utputtP62553  :■  chrl  PCREC  >t  (  initialize  parallel  PORT  C  > 
OutputOWTCJ  t*  chrl  <00FT  >; 

Output! UC0HIRU  j«  chrl  160  );  (  initialize  UffT  ) 

OuTputIQCONTRI.3  :*  chrl  <60  ); 
delaylO; _ 

OutputlOCOTOJ  :«  chrl  MO  >; 


3 

3 

3 
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vcimtvi 

owputconjHMJ  i*  din  wok  >t 

4»J«ylO: 

OutputCOOOKmJ  :*  d»r<  UOdfMND  ); 
delaylO; 


cstr  t*  MOM;  <  initialize  analog  board  > 

cptr*  »*  d>r(  *01  ); 


FDR  i  :*  1  TO  2  00  BEGIN 
FOR  i  :»  1  TO  2  90  BEGIN 
C([i,j]  t*  zero; 

:«  zero 

M 

M; 


FOR  l  :•  1  10  2  90 
FOR  i  :•  1  TO  4  DO 
CMi,j3  :*  zero; 


FOR  i  :>  I  10  7  N 
FOR  i  t«  1  1»  9  10 
61(1,43  i*  zero? 

FOR  i  *•  1  TO  7  BO 
FOR  ,  H  1  TO  IS  10 
A2£i;jl  :*  zero; 


indn:*l: 
iadexl:*! 
fig  i*  1| 


I 


6QAraei*0.0i 
TOwei  *O.Oi 
VELrant*0.<); 

YRroe:*0.0; 

SSnoe:*0.0; 

Rftwn:*0.0; 

RAroa:*0.0; 

RAna*C:*0.0; 

RAC  1*0.0; 

FSrae  i*0.0; 

RSTw>:*0.0; 

RSTinti*0.0; 


{  aro  the  2X2  gain  ntrices  } 


{  zero  the  2X4  gain  ea trices  } 


{  zero  the  7*9  pin  -schedule  ) 


{  zero  the  7*16  pin  schedule  3 


<  setup  pin  schedules  -  61  and  62  ) 


61Cl,t):*1.79: 
61(1,43:*-.007062; 
AlCl ,73:*. 001574; 

Al(2,13:*.7297; 
A1C2/43:*-, 02591; 
Al(2, 73:=. 0007076; 

61C3,t3:*2.155: 
Al(3, 43:=-. 01192; 
A1L3,73:*.001696; 

Al(4,13:=7.«69; 
AIC4, 4  k*. 005739; 
61(4, 73:*-. 001966; 

Al[5,13:»3.254; 
61(5,43:*- .02466; 
Al(5,71:>.001056; 

Al(6,13:=-3.5?5; 
A1C6, 4k*. 009345; 
Al(6,73:=.  0005536; 

Al£7,13:*.5345; 

A:[7,43:=-.1531: 

A.(7,7]:=,W3235; 


Aid  ,21:  ■- .06704: 
Aid  ,53:*-. 0002716: 
61(1,63  .00002029; 

Al(2, 23:*-. 02105; 
61(2,53:*  .0006606: 
61(2,63:-. 00003056; 

61(3, 23: -.1052; 
61(3,53:*.0005602: 

A1  (3 ,4  k —  .0000 79/1; 

61£4,23:-.3227; 
61(4,53:* .000432: 

A1  (4, 63: *.00003013; 

61(5,23:*-. 06524: 
6l£5,3]i-.001404; 
-AlC5^h*r0001207; 

61(6,23:*. 1556; 
■61(6,53:— .0006244: 
61(6,63:-. 000006157; 

61(7, 23:*-. 006276; 
61(7,53:*. 004123; 
61(7,63:-.  000146; 


61(1,33: 

61(1,63: 

M[l,93: 

61(2,33: 

A1C2I63: 

61(2,93: 

61C3J3: 

Al(3>3: 

61(3,93: 

61(4,33: 

61(4,63: 

6K4J93: 

61(5,3]: 

61C5U3: 

61(5,93: 

61(6,33: 

61(6^3: 

61(6^93: 

61(7,33: 

61(7,63: 

61(7,93: 


.0006409: 

.000005763; 

.00000005743; 

.0002326; 

-.00001064; 

.000000463; 

.00146: 

-.000006376; 

.000001163; 

.004372: 

-.000007653; 

.0000001266; 

.000906; 

.0000274: 

-.000002462; 

-.002146; 

.000009667; 

-.00000009062; 

-.00007036; 

-.00004765; 

.000002176 


f:.l,13:=-1.9&6; 
t  :  l,<k  =  .l) ' 
A~l,7j:=-.Oir.5; 

7  d,  103:  =  .003236; 


62(1, 23:=-. 2263:  62(1,33:*.06906; 

A2d  ,53:  *-.W06Z39;  62d^3:-.002lli; 

62(1,63:*. 12j4;  tui  1,53:=. 0006762; 

62£1,113:-.00001553;  62(1, 123: -.00007741; 
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A2Ci;i&>:.*6001424;  Wtiji/ii'. 000001^3$  £U,'ie3:*.6000037681 


6212,13:*-.05976; 
62£2)43:«409144; 
62£2,73:*.006944: 
62C2,10]i-.00007969; 
6212, 133:*. 0004961: 
£12,  U3t*  400005954; 

6213, 13:-. 1667; 
6213,43:* ,03310; 
6213,73 :*  *09175: 
£C3,103:-401522; 
6213)133:"  .00364: 
6213,163:*. 00005423; 

6214,13:— .9162; 
6214,43:*.155; 

6214 ,73:*. 1234; 
£14,103: —406569; 
6214,133:— .006607: 
62C4,163i*.600032&7; 

6215.1] :*- .4223; 
62C5,43:*-.0496l; 
62t5,73:»-46199; 
£C5, 103:- 453469; 

6215. 13] :*. 002306: 
62t5,l63:*.0C01639; 

6216, 13:*-. 656: 
6216,4]: *-.04356; 
62t6,7]:*-,06771: 
6216,10]: *.00006433; 

6216.13] :* .002662; 
6216, 163:*-. 00001119; 

6217.1] :*-6.224; 
6217,41:* .001572; 
6217, 7]:*. 0363; 

62C7, 101:* .001104; 
6217, 133:*. 001139; 
6217, 163  J-.00007; 


6212, 23:*-. 1524;  6212,33:* 
6212,531—40001153;  62t2>61:* 
6212,63: *-.000245:  6212)93:* 
6212,113:*. 000006372;  6212,123: 
6212,14]:— .0001615:  6212,153: 
6212, 173:* 4000003536;  6212,163: 

6213,23:*- .6572;  6213,33:* 
6213^3:-.00009266;  6213,63:* 
4213, 63:  *-.037 17;  6213,93:* 
6213,113:*  40002116;  £13,123: 
6213,143:*. 002661  6213,153: 
62C3,173:*.0000003215;  6213,163: 

@4^3:*iSi^2; 

.« 14)6]  »*. 3041:  6214)9]:* 
6214)113:*.000q4196;  <6214,123: 
6214, 143:*. 001163:  6214,153: 

6214) 17]:-4M0023i  6214,163: 

£15 ,23  :*  .943;  6215,33:* 
£15, 5h— 400333;  6215,63:* 

6215  43:*  .1051;  62I5)93i« 
62f5^Tl 3 i* '.00002631;  6215,123: 

6215) 143:- .00517  :  6215,153: 
6215, 173: *.0000005309;  £15,163: 

6216,231*1.412:  6216,33:* 
£16,53  r-405501;  6216,63:* 
6216, 63:*. 0662;  6216,93:* 

6216  113:-. 00002001;  £16,123: 
6216,143:— .003604  ;  6216,153: 
6216,17]:— 4000006737;  6216,163: 

6217,23:*4A92:  6217,33:* 
6217, 5]:-. 004504  ;  6217,63:* 
6217|63: *-.05366:  6217,93:* 
6217, 113:*. 00003346;  6217,123: 
62t7,143:»402541:  6217,153: 
62C7, 173: "*.0000007202;  6217,163: 


6217,33:* 

621743:* 

6217,93:* 

6217,123: 

6217)153: 

6217,163: 


B. 

.000395; 

.000001957; 

-.00003247: 

‘.000000049s; 

005632: 

.0004252; 

.001522; 

40002149: 

-.00003302: 

.00000002667; 


.003296: 

.00004993; 

.0001429; 

.0000009122; 

02269: 

0007071; 

.001961; 

.00004469; 

-.00004179; 

-.000002211; 

03657: 

0006176; 

001415; 

-.OOOOOZ753; 

‘•00007365: 

-.0000005247; 

3341; 

.0001901; 

.002292; 

-400006664; 

.00000266; 

.000001551; 


6HG  :*  0.001946; 

ELEptr  :*  ELEloc:  <  set  pointers  to  D/A  locations  > 

ALRptr  :•  MJUoc; 

RUBptr  :=  RUDloc; 

CR  :=  chr(WO);  6(2  :*  Chr<t06);  DU  :*  chr(W5); 

LF  :=  chr(40A);  EOT  :*  chr(VM); 

eriteln<  ICO],  CR.'Helcoee  to..'); 

•rite  (ICO],  CR,'»  pC6S  «'); 
nitlsecond; 

■riteln<  ICO],  CR, 'Ground  test  '): 
arite  <  ICQ],  CR,'  or  Fliflht?'); 
read  <  1CI3,  testaode  ); 

IF  testaode*  "C  TV6>  Ground  Test  :•  TRUE 
ELSE  Ground Test  :*  FALSE; 


M;  <  C0LC900T  } 

< . - . 


2.4  Froqraa  Reinitialization 


Procedure  WfTCOOT  ; 

OAR  iptr  :  ‘jntes'r; 
Cptr  :  ‘ch?*; 


Proce  -e  FJV  ip  :  inter-r  ); 
V"  :  ‘ltteo  ; 

K^Li 

ljrr:  :*  ip; 
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*4 


{ 


END 


> 


BEGIN 

DISABLE; 
fclwAline  s« 

teden  **  '  Entry  Error'; 

todprog  i*  '4>rogn  Error"; 


■rite) n(  £003,  CR,b)ank)iae>j 
-aritelnf  (COJ,  CR,'-AeHUW  f  >; 
wit»  <  raj;  CR,'  Option?' I; 


IMS*  *•  WTfF; 


Z0UT(  ELEtoc  ); 
20UT(  ALRloc  ); 
ZDUH  MDIoc  ) 


{  zero  voltt  out  to  control*  } 


jOutguttlNTCONTJ  s*  chr(ilMASC);  (  re-enable  p.i.e.  } 


BO;  <  IMWBOOT  > 

(- . - . 

< . 2,5  Analog  to  Digital  Conversion 

Ruction  ADCfVchan  :  integer)  :  rut ; 


m 

BEGIN 


statu*  i  char; 
cptr  i  ‘char; 
iptr  t  ‘integer; 
istatWflvar  :  integer; 


cptr  :»  ADDAfUl; 
cptr*  i«  ckrfVdunl; 
cptr  :*  ATOM: 
cptr*  i»  -chr(*01>; 
iptr^  :*  AD£)VM; 

status  i1  cptr*; 
tstitus  »•  tr<K  status) 
UNTIL  TSTBI?<ictatus,7>; 
Iwr  i»  iptr*j 
Ivar  t*  8HR(  Ivar,4  ); 
ADC  i*  Ivar 
<  ADC  } 


implicit  conversion  to  REAL  ) 


- -  2.4  A/D  and  D/A  Verification 


> 

> 

} 


> 

> 

) 


Procedure  Ana  TEST ; 

VAR  ach  :  char; 

{ . > 

Procedure  t*stA2D; 

VAR  INchan  t  jnTcrrr; 
volts  IN  j  real; 

BEGIN 

nrittlnt  ICOI/D;,'  0..V..F  ?'); 
artteUCOl  ^R,b)  ?  l  i ; . ) ; 
nrite(ICO)(CR.'CtiZn  In  =  ?'); 
rtad((£I),ach>; 

IF  <ach>*'0')  and  (ach(«’9>  TtL •<  inchant»ord(ach)-ard('0'> 

OSE  IF  (adiKA'l  and  (;^(>TI  THSX  iichanford(acb>'ord('A'>»10 
ELSE  BEGIN  arite)n(CC0i|O(/  ini); 


'  >-rjr  • 

: ' Vo)rs: 


M>; 


■amboot; 

exit 


REPEAT 

Volt*In:*(A:  3  <  I  r : 
■ritelnUCG'j  ,1  .'C 
■ritedCOJ/. ,  • 

read(CCI).? 

UNTIL  lad.  <)  t  , 
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Procedure  mtD2A; 

VAR  iptr  s  ‘integer; 

iVolteOUT  s  integer; 

VDltsOn  t  real; 

«ECIM 

■riteln(CCO]fOR|'  0..5); 
erite  <CC03£l,blariUine>: 

■rite  <£C0m,'CHAH  OUT  ?  *>; 
read  (CCnlacM; 

■riteliKCOU  fCR; '  *10>  .0.  •♦10?'  > ; 

■rite  <CC0)£Mtai*Hne>; 

■rite  <CC0J/CR»'VDlt»*' 3; 

Media  (ttIJ,VolteOUT>; 

iVolteOUT  t«  R0M(  <Volt50JT*v2out)  4  rZBRDv  >; 


rafiE  acb  GF 

*0^ t  iptr  i«  ELEIoc; 

'2*  iptr  t*  ALRIoc; 

*3'  i  iptr  i«  RLSIoc; 

B«| 

iptr*  :«  SM.<iVDlteOUT/4)  l  MSI 


DISABLE: 

■ritelmCCOlXRiWd  or  D/a'); 
erite(tCO],CMfai*line>; 

■ritelCCOlJCR/lfcich  test?'); 
nod  (ICIl^adb); 

CASE  Kb  OF 

1  ****$?» 

°  ELSt|ECINA  ■ritelndCOIfCR^badm); 
eeitlsecond; 

■areboot: 

nit 


read([CI3,ach); 

■areboot 


{ . 

< . 

< - 


2.7  Matrix  R.  i'  lation 


Procedure  »ISP22<  VAR  A  I  MAT2 x2  ); 

VAR  i.j  :  integer: 

BEC  IN 

■rite(nsijCR): 

FOR  i  j*  1  rax  60  BECIH 

FOR  j  *«  1  TO  2  DO  erite([C0D/Ii,j3:;i  :rcc,'  '); 
■ritelntCCOljCR) 

M 

**n 

Procedure  ®ISP24<  VAR  A  i  MT2x4  ); 

VAR  i.j  t  integer; 

KCIN 

•riteitCOlfCR); 

FOR  i  »»  1  TO  2  DO  BCD! 

FOR  j  i*  I  TO  4  10  erite([C0);,:>>,O:fr:;.'ccl'  ’); 

■ritein<COO]/CR) 

DA 


Procedure  RfWlDIVAR  AtfWT7xlA;  iW;  ! .  :  C:‘  — ‘v;  VV.  ::integer); 


Ct:3:*Ali,13*fc[13  «ALi,23::... 

ACi, 43*6143  ♦ACi,5]>::. J 


♦ 


E>, 


Ati,l03*K103  ♦ACi,ll)*Btll3  WO^tBCm  ♦ 
Ati, 133*1033  WO, 143*1 043  4A£i,153«BU53  ♦ 
AC  i,  163*606)  WO, 173*107)  «Ati,lA)»BCl«)  ; 


Procedure  t.?LY79  (VAR  A:HAT7rt}  VAR  l:VEC9?  VAR  C:VEC9;  Wft  1 -.integer) 5 
BEGIN 


BC-j 


C03:*ACi,13«ttl3  WO,2)*B[2)  tACi,33»BI33  ♦ 
ACi>41»B£43  «ACi,5)»Bt5)  WO,6)*fcC6)  * 
A£i,73«B£7)  «A£i,*3#MM  *0,93*8193  ; 


A> 
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IF  index!  «  3  THEN  BU 


M&Y7i6<A2.FC2fCl,i>t 

CMl^lKlfil; 


IF  index!  *  4  DO  Bn 

«mffift«2.K2,C!,i)i 

GkC!;4]t*Cl[U; 

Ml 

IF  index!  >  5  DO  BIN 

nFU7lft<A2.fC2,Cl,i); 

CfCl/!I:*C!ii]; 

M? 

IF  index!  *  4  DO  BU 
i  **  5i 

CfC!/23t<CiCi]; 


IF  indexl  *  7  DO  BIN 

WLY7i»(A2.FC2^1,i); 

CeC!tl]:»ClCil; 

END; 

IF  index!  •  !  DO  BIN 
i  **2: 

M>LYmAl.rci£i,i>t 

CK2|!3:*CuiI; 


IF  indexl  *  9  DO  BIN 
i  •*  4* 

l«m7l»<A2.FC2,Cl»iH 

Cfet2f2]s*ClU); 

M; 

IF  indexl  •  10  DO  BU 
i  **3; 

imt79<Al  JCl^l;i); 
Ot2,3Ji*CUiJ; 

M; 

IF  index!  *  11  DO  BIN 
i  :•  4: 

im.Y79(Al  tFClfClfi); 
CkC2/41:>CICl]; 

BA; 

IF  index!  •  12  DO  BU 
i  x«  4: 

ltH.Y7$Ml,FCl,Cl,i>; 

Cft2,l):*Cltil; 
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<  Interrupt  Service  ) 


ftracefcre  fSfflSLi 

CONST  MIMvolt*  >  N0M| 
HMCvolti  •  S0FFF; 


■GIN 

MJME(  •PVUE/W2/U3/tt7/*D/iQ/*Q/»E3/*E3/*E3/*Fl  ); 
tfSMLE; 

OUC(  Mfl/W9  >;  {  ZH»  Register  Exdunyn  > 


fifioat  H 

ELEntr*  *•  SHL(ELEoutf4>  I  MS; 


RSTint  «*  RAC  4  RSI  »  *1; 

RAC  s*  RSTint; 

RUD  t*  Cf Cl >lMST«Cfti j2HRft*C«Ci»ll^STint ; 

RUD  *«  RUD  ♦  CCbll^ntl^l/ZJiSSkbtljSDiW+atl^WW); 

MR  *•  Cf C2 ;lW?St<CIC2»2J«RWtC2ilHRSTint ! 

MR  i*  ALR  ♦  (C0C2  il3*mCbt2 a'M&vSMI ,3JwR*Cl>C2 ,4]*RA)  ; 

MR  f  MR/Z.O; 

IF  CroondTest  MN  BEGIN 

if  index  •  100  not  seen 

■ritP(CC£U^LF/CR,'  MS')) 
eriteCCCOl  ;RU67f  o:prcc>  l 
■rittCCCOI^FXR.'  MR’)| 

«rit»(CCO]^Rif»:jrec)} 

BA; 

BA¬ 
BA  *■  NUD2v  •  RUD; 

ROD  :«  (RUD  •  v2out>  ♦  rZBOv; 

MR  J*  MR2v  f  MR; 

MR  »*  (MR  •  «2Mt>  ♦  cZfflOv; 

IF  GnoundTest  THEN  BEGIN 
IF  index  *  100  DBt  1BW 

•ritetCCOJ^FjCR,'  Revolts'); 

«rit*<CCOI)KURifi:prec); 

■riteCCanjLFXR,'  MRvolti); 

wit*<COO],MR7f»:prec); 

index  :«  0; 

BA; 

BA; 

index  j«  index  «  1; 

IF  (RUX-iero)  1HEH  RUDnut  i«  KIHvolU 

ELSE  RUDout  i*  TmcCRUD); 

IF  (RUDnut  >  MX  volts)  THEN  RUDnut  i«  MXvoltt; 

IF  (MR(«xero)  Ml  MRoat  »«  NDWolts 

ELS  MRout  i*  Trunc(MR); 

IF  (MRout  )  MXvolti)  Ml  MRout  *«  MXvolti; 

RUDptr*  i*  SHL(IUaiM>  *  MS; 

MRptr*  t*  SHL(MRorc,4)  1  MS; 


ELEout  :*  KIHvolts; 

ELEptr4  i*  94.(ELEout;4>  l  MS; 

DLDC<  M9/M0  >1 

INUNEt  •FS/I3E/M3/ID3/0&7/0FI  ); 

BMBLE 


BA;  (  CONTROL  > 
A) 
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